|
|
@@ -189,7 +189,7 @@ get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total',
|
|
|
dfRef[,sf]<-base::rep('',nrow(dfRef))
|
|
|
|
|
|
labelVar=base::sprintf('%sLabel',var)
|
|
|
- df1<-add.label(df1,var,labelVar)
|
|
|
+ df<-add.label(df,var,labelVar)
|
|
|
dfRef<-add.label(dfRef,var,labelVar)
|
|
|
|
|
|
colSel<-base::c(timeVar,labelVar,sf,doseVar)
|
