delete space (ASCII "\032") in rings data of FHX files. Found after a…

…fter the last line
ltrr-arizona-edu · Apr 23, 2020 · 807841f · 807841f
1 parent b5070c8
commit 807841f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/io.R b/R/io.R
@@ -123,7 +123,7 @@ read_fhx <- function(fname, encoding, text) {
                                  id.vars = "year", value.name = "rec_type",
                                  variable.name = "series", na.rm = TRUE
   )
-  fl_body_melt <- fl_body_melt[fl_body_melt$rec_type != ".", ]
+  fl_body_melt <- fl_body_melt[! fl_body_melt$rec_type %in% c(".", "\032"), ]
   fl_body_melt$rec_type <- vapply(fl_body_melt$rec_type, abrv2rec_type, "") # nolint
   fl_body_melt$rec_type <- make_rec_type(fl_body_melt$rec_type)
   f <- fhx(