Adding nVar to arguments for get.ggtext

R/hypoAfrica.R

@@ -162,6 +162,7 @@ get.ggplot<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='ntotal'
 #' @param var target variable to be shown
 #' @param timeVar variable measuring time
 #' @param doseVar variable for selecting datasets
+#' @param nVar variable where counts are stored
 #' @param doseBreaks which doses are in df
 #' @param doseLabels how to label doses in legend
 #' @param timeBreaks where time points are assigned
@@ -170,11 +171,11 @@ get.ggplot<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='ntotal'
 #'
 #' @export
 
-get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',
+get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='ntotal',
    doseBreaks=c(59.9,60,62,100),doseLabels=c('ref','60 Gy','62 Gy','all'),
    timeBreaks=c(0,1,3,4)){
 
-   df<-add.p.values.fisher(df,dfRef,var)
+   df<-add.p.values.fisher(df,dfRef,var,nVar)
    sf<-base::sprintf('%s_sF',var)
    dfRef[,sf]<-base::rep('',nrow(dfRef))
 

man/get.ggtext.Rd

@@ -10,6 +10,7 @@ get.ggtext(
   var,
   timeVar = "visitid",
   doseVar = "dose",
+  nVar = "ntotal",
   doseBreaks = c(59.9, 60, 62, 100),
   doseLabels = c("ref", "60 Gy", "62 Gy", "all"),
   timeBreaks = c(0, 1, 3, 4)
@@ -26,6 +27,8 @@ get.ggtext(
 
 \item{doseVar}{variable for selecting datasets}
 
+\item{nVar}{variable where counts are stored}
+
 \item{doseBreaks}{which doses are in df}
 
 \item{doseLabels}{how to label doses in legend}