formatP handles NA now by returning ""

abusjahn · Aug 9, 2024 · 48cc9ad · 48cc9ad
1 parent 5817907
commit 48cc9ad
Showing 1 changed file with 21 additions and 7 deletions.
diff --git a/R/basefunctions.R b/R/basefunctions.R
@@ -141,7 +141,8 @@ formatP <- function(pIn, ndigits = 3, textout = TRUE, pretext = FALSE,
         formatC, format = "f",
         digits = ndigits, drop0trailing = FALSE,
         decimal.mark = decimal.mark
-      )
+      )|> 
+      apply(MARGIN=c(1,2), gsub, pattern = ".*NA.*",replacement = "")
     if (pretext) {
       for (row_i in 1:nrow(pIn)) {
         for (col_i in 1:ncol(pIn)) {
@@ -150,32 +151,45 @@ formatP <- function(pIn, ndigits = 3, textout = TRUE, pretext = FALSE,
                    "<", "="
             ),
             formatp[row_i, col_i]
-          )
+          ) |> 
+            gsub(pattern = "NA.*",replacement = "", x=_) 
         }
       }
+      formatp <-  
+        apply(formatp,MARGIN=c(1,2), gsub, pattern = ".*NA.*",replacement = "")
     }
     if (mark) {
       formatp <- matrix(
         paste(
           formatp,
-          apply(gsub("[\\<\\=]", "", formatp), c(1, 2), markSign)
+          apply(gsub("[\\<\\=]", "", formatp) |> 
+                  gsub(",",".",x=_), c(1, 2), markSign)
         ),
         ncol = ncol(pIn)
-      )
+      ) |> apply(MARGIN = c(1, 2), 
+                       gsub, pattern = ".*NA.*",replacement = "")
     }
     if(add.surprisal){
-      s <- apply(pIn,MARGIN = c(1,2),surprisal, precision = sprecision)
+      s <- apply(pIn,MARGIN = c(1,2),surprisal, precision = sprecision) 
       if(german_num){
-        s <- str_replace(s,'\\.',',')
+        s <- gsub('\\.',',',s)
+      }
+      for (row_i in 1:nrow(pIn)) {
+        for (col_i in 1:ncol(pIn)) {
+          formatp[row_i, col_i] <- paste0(formatp[row_i, col_i],
+            ', s = ',s[row_i,col_i])|> 
+        gsub(pattern = ".*NA.*",replacement = "",x=_)
+        }
       }
-      formatp <- paste0(formatp,', s = ',s)
     }
     if (textout == FALSE & pretext == FALSE & add.surprisal == FALSE) {
       formatp <- apply(formatp, MARGIN = c(1, 2), as.numeric)
     }
     if(!pIn_is_matrix){
       formatp <- as.vector(formatp)
     }
+  } else{
+    formatP=""
   }
   return(formatp)
 }