Use class<- workaround

richfitz · Jun 19, 2019 · 519c38d · 519c38d
1 parent b5e5699
commit 519c38d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/driver_fst.R b/R/driver_fst.R
@@ -122,7 +122,8 @@ try_write_fst_value <- function(value, filename, compress,
                                 scratch_dir = NULL) {
   tmp <- tempfile(tmpdir = scratch_dir %||% tempdir())
   if (compress) value <- fst::compress_fst(value)
-  fst::write_fst(data.frame(value), tmp)
+
+  fst::write_fst(structure(list(value = value), class = "data.frame"), tmp)
   file.rename(tmp, filename)
 }