fix importing empty cells as NA

JanMarvin · Dec 23, 2020 · c47948f · JanMarvin · Dec 23, 2020 · c47948f
1 parent 7cb0ac8
commit c47948f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/loadWorkbook.R b/R/loadWorkbook.R
@@ -245,7 +245,7 @@ loadWorkbook <- function(file, xlsxFile = NULL, isUnzipped = FALSE) {
     vals <- getNodes(xml = sharedStrings, tagIn = "<si>")
 
     if ("<si><t/></si>" %in% vals) {
-      vals[vals == "<si><t/></si>"] <- "<si><t>NA</t></si>"
+      vals[vals == "<si><t/></si>"] <- "<si><t></t></si>"
       Encoding(vals) <- "UTF-8"
       attr(vals, "uniqueCount") <- uniqueCount - 1L
     } else {

diff --git a/src/read_workbook.cpp b/src/read_workbook.cpp
@@ -364,7 +364,7 @@ List getCellInfo(std::string xmlFile,
             v[i] = sharedStrings[ss_ind];
 
             if(v[i] == "openxlsx_na_vlu"){
-              v[i] = NA_STRING;
+              v[i] = "";
             }
 
             string_refs[i] = r[i];