Resolved the issue of the present/absent data with a value of 1 raise…

…d in issue #7.
NeotomaDB · Aug 29, 2017 · 234e8fc · 234e8fc
1 parent e537532
commit 234e8fc
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/functionalized_run.R b/functionalized_run.R
@@ -479,6 +479,12 @@ test_dwc_export <- function(x){
       }
     }
   }
+
+  if(output$sampleSizeValue == 1 & output$sampleSizeUnit == "present/absent") {
+    output$sampleSizeValue = NA
+    output$sampleSizeUnit  = NA
+  }
+
   write.csv(output,
             paste0('dwc_test_output/', x$dataset.meta$dataset.id, '_test_', x$dataset.meta$dataset.type, '.csv'), 
             row.names = FALSE, na = "")