tried to add @éxamples

R/noegletal_get.R

@@ -123,6 +123,8 @@ noegletal_wrangle <- function(df) {
 #' @param variable_ids Vector of variable IDs
 #' @returns Tidy [tibble::tibble()] with requested data
 #' @export
+#' @examples
+#' noegletal_get(muni_codes = c(101, 155), years = 2018:2024, variable_ids = c(001))
 noegletal_get <- function(muni_codes = ALLOWED_MUNI_CODES,
                           years = ALLOWED_YEARS,
                           variable_ids) {

R/noegletal_tidy.R

@@ -15,6 +15,10 @@
 #'   and one column for each included variable (nøgletal).
 #'
 #' @export
+#' @examples
+#' \dontrun{
+#' noegletal_tidy(file = 'path/to/csv_file.csv')
+#' }
 noegletal_tidy <- function(file) {
 
   if (!file.exists(file)) {

R/noegletal_vars.R

@@ -23,6 +23,8 @@
 #' @returns A [tibble::tibble()] where each row is a variable and the columns are
 #'   'variable_id', 'variable_name' and 'variable_definition'.
 #' @export
+#' @examples
+#' noegletal_vars()
 noegletal_vars <- function() {
 
   source_code <- rvest::read_html("https://www.noegletal.dk/noegletal/ntInfo24A.html",