[write] similar to load, skip Rcpp::String() if cell type is empty

[write] similar to load, skip Rcpp::String() if cell type is empty #2821