Removing scaling of x axis from get.ggtext

R/hypoAfrica.R

@@ -130,7 +130,7 @@ add.p.values.fisher<-function(df,dfRef,var,timeVar='visitid',nVar='total'){
 #' @importFrom rlang .data
 #'
 get.ggplot<-function(df,var,timeVar='visitid',doseVar='dose',nVar='total',
-   doseBreaks=base::c(59.9,60,62,100),doseLabels=base::c('ref','60 Gy','62 Gy','all'),doseColors=base::c('grey70','red','magenta','blue')){
+   doseBreaks=base::c(59.9,60,62,100),doseLabels=base::c('ref','60 Gy','62 Gy','all'),doseColors=base::c('black','red','magenta','blue')){
    df<-add.conf.int(df,var,nVar)
    #dfRef<-add.conf.int(dfRef,var,nVar)