From c62027e8451d1febb67af60c53fba3e2eb73ce6c Mon Sep 17 00:00:00 2001 From: aleksanderbl29 <73799306+aleksanderbl29@users.noreply.github.com> Date: Thu, 28 Nov 2024 13:56:03 +0100 Subject: [PATCH] Fix lint issues --- .lintr | 3 ++- R/dst_get_data.R | 1 + data-raw/dst_tables.R | 4 ---- 3 files changed, 3 insertions(+), 5 deletions(-) diff --git a/.lintr b/.lintr index c813fb2..42a3ead 100644 --- a/.lintr +++ b/.lintr @@ -1,4 +1,5 @@ -linters: linters_with_defaults() # see vignette("lintr") +linters: linters_with_defaults( + cyclocomp_linter(complexity_limit = 17L)) encoding: "UTF-8" exclusions: list( "tests") diff --git a/R/dst_get_data.R b/R/dst_get_data.R index 3efe25d..844fc2a 100644 --- a/R/dst_get_data.R +++ b/R/dst_get_data.R @@ -115,6 +115,7 @@ dst_get_data <- function(table, } else { stop("You haven't selected an appropiate language ('da' or 'en'") } + names(dst_data) <- c(dst_names, "value") # Remove the code diff --git a/data-raw/dst_tables.R b/data-raw/dst_tables.R index 3a634d8..87ba97f 100644 --- a/data-raw/dst_tables.R +++ b/data-raw/dst_tables.R @@ -1,7 +1,3 @@ tables <- dst_get_tables(lang = "en") usethis::use_data(tables, overwrite = TRUE) - -# tables_da <- dst_get_tables(lang = "da") -# -# usethis::use_data(tables_da, overwrite = TRUE)