cleanup function names, arguments and docs

NAMESPACE

@@ -1,8 +1,8 @@
 # Generated by roxygen2: do not edit by hand
 
-export(mi_column_values)
 export(mi_data)
 export(mi_nuts_levels)
 export(mi_source_coverage)
+export(mi_source_filters)
 export(mi_sources)
 importFrom(rlang,.data)

R/data.R

@@ -10,7 +10,7 @@
 #'   and the values are the selected values for those fields. Default is an empty list.
 #' @param y_filters (Optional) A `named list` where the names are the filter fields for the y variable
 #'   and the values are the selected values for those fields. Default is `NULL`.
-#' @param limit An `integer` specifying the maximum number of results to return. Default is 1500.
+#' @param limit An `integer` specifying the maximum number of results to return. Default is 2000.
 #'
 #' @return A `tibble` with the following columns:
 #' 
@@ -58,7 +58,7 @@ mi_data <- function(
   level,
   x_filters = list(),
   y_filters = NULL,
-  limit = 1500
+  limit = 2000
 ) {
   # Validate inputs
   checkmate::assert_string(x_source)

R/column-values.R → R/source-filters.R

@@ -15,14 +15,14 @@
 #'
 #' @examples
 #' \dontrun{
-#' mi_column_values(
+#' mi_source_filters(
 #'   source_name = "DEMO_R_FIND2",
 #'   year = 2020,
 #'   level = "2",
 #'   filters = list(unit = "YR")
 #' )
 #' }
-mi_column_values <- function(
+mi_source_filters <- function(
   source_name,
   year,
   level,

R/sources.R

@@ -2,7 +2,7 @@
 #' 
 #' @param level a `character` string specifying the NUTS level ("0", "1", "2", or "3"). You can also always check valid NUTS levels using \code{\link{mi_nuts_levels}}.
 #' @param year an `integer` of length 1, specifying the year. Optional.
-#' @param limit an `integer` of length 1 specifying the maximum number of sources to return. Defaults to 1000.
+#' @inheritParams mi_data
 #' 
 #' @return a `tibble` of sources with the following columns:
 #' 
@@ -84,7 +84,7 @@ mi_sources <- function(
 #' Get the NUTS level and Year coverage for a specific data source.
 #' 
 #' @param source_name name of the data source
-#' 
+#' @inheritParams mi_data
 #' @return a `tibble` containing the following columns:
 #' 
 #' * `nuts_level`: NUTS level
@@ -103,7 +103,8 @@ mi_sources <- function(
 #' mi_source_coverage("ghs_smod")
 #' }
 mi_source_coverage <- function(
-  source_name
+  source_name,
+  limit = 1500
 ){
   checkmate::assert_string(source_name)
 
@@ -133,7 +134,8 @@ mi_source_coverage <- function(
       "User-Agent" = getOption("mapineqr.user_agent")
     ) |>
     httr2::req_url_query(
-      `_resource` = source_name
+      `_resource` = source_name,
+      `limit` = limit
     ) |>
     httr2::req_method("GET") |>
     httr2::req_perform()