Correcting for fixed column names in gg.gettext

R/hypoAfrica.R

@@ -179,7 +179,7 @@ get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='ntotal'
    sf<-base::sprintf('%s_sF',var)
    dfRef[,sf]<-base::rep('',nrow(dfRef))
 
-   colSel<-base::c('visitid',var,sf,'dose')
+   colSel<-base::c(timeVar,var,sf,doseVar)
    df1<-base::rbind(df[,colSel],dfRef[,colSel])
 	ggplot2::ggplot()+
 	ggplot2::geom_text(ggplot2::aes(x=.data[[timeVar]],y=base::as.factor(.data[[doseVar]]),