Expose only cached table with english names

R/dst_search.R

@@ -17,10 +17,8 @@ dst_search <- function(string = "gpd",
 
     series <- httr::content(httr::GET(url = url))
     series <- jsonlite::fromJSON(txt = series)
-  } else if (!is.null(use_cache) && lang == "da") {
-    series <- dkstat::tables_da
   } else {
-    series <- dkstat::tables_en
+    series <- dkstat::tables
   }
 
   matches <- grep(string, series[, field], ignore.case = TRUE)

R/dst_tables.R

@@ -1,6 +1,6 @@
 #' Cached list of all available tables
 #'
-#' @format ## `tables_en`
+#' @format ## `tables`
 #' A data frame with 2339 rows and 8 columns:
 #' \describe{
 #'  \item{id}{Unique ID of the table}
@@ -12,20 +12,4 @@
 #'  \item{active}{Binary indicator of the table being active}
 #'  \item{variables}{List of the variables in the table}
 #' }
-"tables_en"
-
-#' Cached list of all available tables with danish names and descriptions
-#'
-#' @format ## `tables_da`
-#' A data frame with 2339 rows and 8 columns:
-#' \describe{
-#'  \item{id}{Unique ID of the table}
-#'  \item{text}{Description of the table}
-#'  \item{unit}{The unit of the values represented in the table}
-#'  \item{updated}{When this table was last updated}
-#'  \item{firstPeriod}{The time of the first observation in the table}
-#'  \item{latestPeriod}{The time of the latest observation in the table}
-#'  \item{active}{Binary indicator of the table being active}
-#'  \item{variables}{List of the variables in the table}
-#' }
-"tables_da"
+"tables"

data-raw/dst_tables.R

@@ -1,7 +1,7 @@
-tables_en <- dst_get_tables(lang = "en")
+tables <- dst_get_tables(lang = "en")
 
-usethis::use_data(tables_en, overwrite = TRUE)
+usethis::use_data(tables, overwrite = TRUE)
 
-tables_da <- dst_get_tables(lang = "da")
-
-usethis::use_data(tables_da, overwrite = TRUE)
+# tables_da <- dst_get_tables(lang = "da")
+#
+# usethis::use_data(tables_da, overwrite = TRUE)