Update write_chroms.R with changes per discussion in PR

Author: pbulsink

R/write_chroms.R

@@ -275,7 +275,7 @@ nc_add_global_attributes <- function(nc, meta, sample_name){
 format_metadata_for_cdf <- function(x){
   datetime <- format(attr(x, "run_datetime"), "%Y%m%d%H%M%S%z")
   if (length(datetime) == 0) {
-    datetime <- format(Sys.time(), "%Y%m%d%H%M%S%z")
+    datetime <- ""
   }
   rt_units <- attr(x, "time_unit")
   rt_units <- ifelse(!is.null(rt_units), tolower(rt_units), NA)
@@ -315,6 +315,7 @@ format_metadata_for_cdf <- function(x){
     ifelse(length(meta$sample_amount) != 0, meta$sample_amount, 1)
   meta$sample_injection_volume <-
     ifelse(length(meta$sample_injection_volume) != 0, meta$sample_injection_volume, 1)
+  meta[sapply(meta, length) == 0] <- ""
   meta[sapply(meta, is.null)] <- ""
   meta[sapply(meta, is.na)] <- ""
   meta