Adding base to sprintf in hypoAfrica.R

R/hypoAfrica.R

@@ -188,7 +188,7 @@ get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total',
       df1<-base::rbind(df1[,colSel],dfAdd[,colSel])
    }
    #set labels
-   labelVar=sprintf('%sLabel',var)
+   labelVar=base::sprintf('%sLabel',var)
    if (! labelVar %in% colnames(df1)){
       df1[,labelVar]=base::paste0(base::round(df1[, var], digits = 2))
    }