Fix datasheet so it doesn't return NAs in empty dataframes

syncrosim · Oct 10, 2024 · 4cb9dde · 4cb9dde
1 parent e890961
commit 4cb9dde
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/datasheet.R b/R/datasheet.R
@@ -898,6 +898,7 @@ setMethod("datasheet",
       }
     }
 
+    sheet <- sheet[rowSums(is.na(sheet)) != ncol(sheet), ]
     outSheetList[[cName]] <- sheet
 
     # return single row datasheets as named vectors (if not for multiple scenarios)