language-extensions/R/src/RParam.cpp
//--------------------------------------------------------------------------------------------------
// Name: RRawParam::RetrieveValueAndStrLenInd
//
// Description:
//  Retrieves data from m_RcppVector, fill it in m_value and set m_strLenOrInd accordingly.
//
:RetrieveValueAndStrLenInd
Description:
Retrieves data from m_RcppVector, fill it in m_value and set m_strLenOrInd accordingly.
: RetrieveValueAndStrLenInd Description : Retrieves data from m_RcppVector fill it in m_value and set m_strLenOrInd accordingly .
void RRawParam::RetrieveValueAndStrLenInd()
{
	LOG("RRawParam::RetrieveValueAndStrLenInd");
	Rcpp::Environment globalEnv = Rcpp::Environment::global_env();
	if (globalEnv.exists(m_name.c_str()))
	{
		Logger::LogRVariable(m_name);
		RInside* embeddedREnvPtr = REnvironment::EmbeddedREnvironment();
		m_RcppVector = (*embeddedREnvPtr)[m_name.c_str()];
		if (m_RcppVector.size() == 0)
		{
			m_strLenOrInd = SQL_NULL_DATA;
		}
		else
		{
			RTypeUtils::FillDataFromRawVector(
				m_RcppVector,
				m_size,
				&m_value,
				&m_strLenOrInd);
		}
	}
	else
	{
		m_strLenOrInd = SQL_NULL_DATA;
	}
}
void RRawParam :: RetrieveValueAndStrLenInd ( ) { LOG ( " " ) ; Rcpp :: Environment globalEnv = Rcpp :: Environment :: global_env ( ) ; if ( globalEnv . exists ( m_name . c_str ( ) ) ) { Logger :: LogRVariable ( m_name ) ; RInside * embeddedREnvPtr = REnvironment :: EmbeddedREnvironment ( ) ; m_RcppVector = ( * embeddedREnvPtr ) [ m_name . c_str ( ) ] ; if ( m_RcppVector . size ( ) == 0 ) { m_strLenOrInd = SQL_NULL_DATA ; } else { RTypeUtils :: FillDataFromRawVector ( m_RcppVector , m_size , & m_value , & m_strLenOrInd ) ; } } else { m_strLenOrInd = SQL_NULL_DATA ; } }
Name: RRawParam::RetrieveValueAndStrLenInd
Description:
Retrieves data from m_RcppVector, fill it in m_value and set m_strLenOrInd accordingly.
Name : RRawParam :: RetrieveValueAndStrLenInd Description : Retrieves data from m_RcppVector fill it in m_value and set m_strLenOrInd accordingly .