 
Hi all.
I'm having a little trouble with the  function "texteval" (session package).
I have used "texteval" in the construction of the function "ExpandData1".
"ExpandData1" does not work as expected. However, when I run only the inside code
of "ExpandData1" I get the right result. Apparently "texteval" is not working when
used called by another function. Here is a simple example:
> library(session)
> library(compositions)
The following object(s) are masked from 'package:robustbase': 
> ExpandData1 <- function(Data,linkFunctionsVector,numPar)
+ {
+   attach(as.data.frame(Data))
+   EvalData = array(0, c(nrow(Data),length(linkFunctionsVector) ) )
+   for(idexpr in 1: length(linkFunctionsVector)) {
+   if(linkFunctionsVector[idexpr] == "1"){ EvalData[,idexpr] = rep(1,nrow(Data))} 
+   else{  texteval(paste("EvalData[,idexpr] =", linkFunctionsVector[idexpr]), echo = TRUE)}
+   }
+   
+   ExpData = NULL
+   for(idpar in 1: numPar){
+   ExpData = cbind(ExpData, EvalData)
+   }
+   colnames(ExpData) = rep(linkFunctionsVector,numPar)
+   return(ExpData)
+ }
> 
> # defining the parameters "Data", "linkFunctionsVector",  and "numPar"
> 
> numPar = 2
> linkFunctionsVector = c("1", "depth", "depth^2")
> data(ArcticLake)
> 
> A = ArcticLake[1:5,]
> Data = array(A[,4],c(5,1))
> colnames(Data) = c("depth")
> 
> # calling the function
> 
> ExpandData1(Data,linkFunctionsVector,numPar)
The following object(s) are masked from 'as.data.frame(Data) (position 11)':
    depth
     1 depth depth^2 1 depth depth^2
[1,] 1     0       0 1     0       0
[2,] 1     0       0 1     0       0
[3,] 1     0       0 1     0       0
[4,] 1     0       0 1     0       0
[5,] 1     0       0 1     0       0
> 
> # however, running only the inside code
> 
> attach(as.data.frame(Data))
>   EvalData = array(0, c(nrow(Data),length(linkFunctionsVector) ) )
>   for(idexpr in 1: length(linkFunctionsVector)) {
+   if(linkFunctionsVector[idexpr] == "1"){ EvalData[,idexpr] = rep(1,nrow(Data))} 
+   else{  texteval(paste("EvalData[,idexpr] =", linkFunctionsVector[idexpr]), echo = TRUE)}
+   }
>   
>   ExpData = NULL
>   for(idpar in 1: numPar){
+   ExpData = cbind(ExpData, EvalData)
+   }
>   colnames(ExpData) = rep(linkFunctionsVector,numPar)
>  
> # I get the right result
> 
> ExpData
     1 depth depth^2 1 depth depth^2
[1,] 1  10.4  108.16 1  10.4  108.16
[2,] 1  11.7  136.89 1  11.7  136.89
[3,] 1  12.8  163.84 1  12.8  163.84
[4,] 1  13.0  169.00 1  13.0  169.00
[5,] 1  15.7  246.49 1  15.7  246.49
> 
I have no idea why this is happening. Any idea?



      
	[[alternative HTML version deleted]]

