tweak to 'append_data'

Author: kingaa

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: pomp
 Type: Package
 Title: Statistical Inference for Partially Observed Markov Processes
-Version: 6.0.4.0
-Date: 2024-12-29
+Version: 6.0.4.1
+Date: 2024-12-30
 Authors@R: c(person(given=c("Aaron","A."),family="King",role=c("aut","cre"),email="kingaa@umich.edu",comment=c(ORCID="0000-0001-6159-3207")),
 	  person(given=c("Edward","L."),family="Ionides",role="aut",comment=c(ORCID="0000-0002-4190-0174"))	,
 	  person(given="Carles",family="Bretó",role="aut",comment=c(ORCID="0000-0003-4695-4902")),

R/bake.R

@@ -363,9 +363,9 @@ append_data <- function (
       )
     }
     fwrite(data,file=file)
+    invisible(fread(file=file))
   },
   error=function (e) {
     pStop(who="append_data",conditionMessage(e))
   })
-  invisible(data)
 }