Feature #375: Allow strings for keepNA argument of writeData(Table)/w…

R/workbook_write_data.R

@@ -130,8 +130,10 @@ Workbook$methods(writeData = function(df, sheet, startRow, startCol, colNames, c
 
 
 
-
-  if(keepNA){
+  if (is.character(keepNA)) {
+    t[is.na(v)] <- 4L
+    v[is.na(v)] <- keepNA
+  } else if (keepNA) {
     t[is.na(v)] <- 4L
     v[is.na(v)] <- "#N/A"
   }else{

R/writeData.R

@@ -38,7 +38,7 @@
 #'    \item{\bold{slantDashDot}}{ slanted dash-dot border}
 #'   }
 #' @param withFilter If \code{TRUE}, add filters to the column name row. NOTE can only have one filter per worksheet. 
-#' @param keepNA If \code{TRUE}, NA values are converted to #N/A in Excel else NA cells will be empty.
+#' @param keepNA If \code{TRUE}, NA values are converted to #N/A in Excel else NA cells will be empty. If a string is passed, that string is used instead of "#N/A".
 #' @param name If not NULL, a named region is defined.
 #' @param sep Only applies to list columns. The separator used to collapse list columns to a character vector e.g. sapply(x$list_column, paste, collapse = sep).
 #' @seealso \code{\link{writeDataTable}}

R/writeDataTable.R

@@ -16,7 +16,7 @@
 #' @param tableName name of table in workbook. The table name must be unique.
 #' @param headerStyle Custom style to apply to column names.
 #' @param withFilter If \code{TRUE}, columns with have filters in the first row.
-#' @param keepNA If \code{TRUE}, NA values are converted to #N/A in Excel else NA cells will be empty.
+#' @param keepNA If \code{TRUE}, NA values are converted to #N/A in Excel else NA cells will be empty. If a string is passed, that string is used instead of "#N/A".
 #' @param sep Only applies to list columns. The separator used to collapse list columns to a character vector e.g. sapply(x$list_column, paste, collapse = sep).
 #' @param stack If \code{TRUE} the new style is merged with any existing cell styles.  If FALSE, any 
 #' existing style is replaced by the new style.

R/writexlsx.R

@@ -47,7 +47,7 @@
 #' between each column.  If "\code{all}" all cell borders are drawn.}
 #'   \item{\bold{borderColour}}{ Colour of cell border}
 #'   \item{\bold{borderStyle}}{ Border line style.}
-#'   \item{\bold{keepNA}} {If \code{TRUE}, NA values are converted to #N/A in Excel else NA cells will be empty. Defaults to FALSE.}
+#'   \item{\bold{keepNA}} {If \code{TRUE}, NA values are converted to #N/A in Excel else NA cells will be empty. Defaults to FALSE. If a string is passed, that string is used instead of #N/A.}
 #' }
 #' 
 #' \bold{freezePane Parameters}
@@ -319,8 +319,8 @@ write.xlsx <- function(x, file, asTable = FALSE, ...){
 
   keepNA <- FALSE
   if("keepNA" %in% names(params)){
-    if(!"logical" %in% class(keepNA)){
-      stop("keepNA must be a logical.")
+    if(!"logical" %in% class(keepNA) && !"character" %in% class(keepNA)){
+      stop("keepNA must be a logical or a string.")
     }else{
       keepNA <- params$keepNA
     }