refresh internal data and fix read_job_mobility() (#256)

MattCowgill · web-flow · commit 07a4be4ac92f · 2024-08-04T08:05:03.000+10:00
* refresh internal data

* fix read_job_mobility()
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: readabs
 Type: Package
 Title: Download and Tidy Time Series Data from the Australian Bureau of Statistics
-Version: 0.4.16.901
+Version: 0.4.16.903
 Authors@R: c(
            person("Matt", "Cowgill", role = c("aut", "cre"), email = "mattcowgill@gmail.com", comment = c(ORCID = "0000-0003-0422-3300")),
            person("Zoe", "Meers", role = "aut", email = "zoe.meers@sydney.edu.au"),
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,6 @@
 # readabs development version
 * The experimental `readabs::read_api()` function no longer coerces columns describing the data categories to numeric. Thanks to @kletts. 
+* Bug fix to read_job_mobility()
 
 # readabs 0.4.16
 * An error inadvertently introduced in 0.4.15 is fixed. This error would only affect a small minority of users.
diff --git a/R/read_job_mobility.R b/R/read_job_mobility.R
@@ -29,7 +29,8 @@ read_job_mobility <- function(tables = "all",
     )
 
   available_tables <- job_mob_tbls %>%
-    dplyr::filter(base::substr(.data$label, 1, 5) == "Table")
+    dplyr::filter(base::substr(.data$label, 1, 5) == "Table") %>%
+    dplyr::filter(tools::file_ext(file) == "xlsx")
 
   if (tables == "all") {
     selected_tables <- available_tables
diff --git a/R/sysdata.rda b/R/sysdata.rda

Original file line number	Diff line number	Diff line change
`@@ -29,7 +29,8 @@ read_job_mobility <- function(tables = "all",`
`29`	`29`	`)`
`30`	`30`
`31`	`31`	`available_tables <- job_mob_tbls %>%`
`32`		`- dplyr::filter(base::substr(.data$label, 1, 5) == "Table")`
	`32`	`+ dplyr::filter(base::substr(.data$label, 1, 5) == "Table") %>%`
	`33`	`+ dplyr::filter(tools::file_ext(file) == "xlsx")`
`33`	`34`
`34`	`35`	`if (tables == "all") {`
`35`	`36`	`selected_tables <- available_tables`