|
@@ -180,7 +180,7 @@ get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total',
|
|
|
sf<-base::sprintf('%s_sF',var)
|
|
sf<-base::sprintf('%s_sF',var)
|
|
|
dfRef[,sf]<-base::rep('',nrow(dfRef))
|
|
dfRef[,sf]<-base::rep('',nrow(dfRef))
|
|
|
|
|
|
|
|
- colSel<-base::c(timeVar,labelVar,sf,doseVar)
|
|
|
|
|
|
|
+ colSel<-base::c(timeVar,var,sf,doseVar)
|
|
|
df1<-base::rbind(df[,colSel],dfRef[,colSel])
|
|
df1<-base::rbind(df[,colSel],dfRef[,colSel])
|
|
|
|
|
|
|
|
if (!is.null(dfAdd)){
|
|
if (!is.null(dfAdd)){
|
