Merge pull request #100 from rOpenGov/codefactor

Improve codefactor score

CITATION.cff

@@ -63,6 +63,7 @@ keywords:
 - cran
 - ggplot2
 - gis
+- cran-r
 references:
 - type: software
   title: 'R: A Language and Environment for Statistical Computing'

DESCRIPTION

@@ -53,4 +53,4 @@ X-schema.org-applicationCategory: cartography
 X-schema.org-isPartOf: http://ropengov.org/
 X-schema.org-keywords: ropengov, r, spatial, api-wrapper, rstats,
     r-package, eurostat, gisco, thematic-maps, eurostat-data, cran,
-    ggplot2, gis
+    ggplot2, gis, cran-r

R/gisco_cache.R

@@ -184,18 +184,18 @@ gsc_helper_detect_cache_dir <- function() {
 
       # 3. Return from cached path
       Sys.setenv(GISCO_CACHE_DIR = cached_path)
-      return(cached_path)
+      cached_path
     } else {
       # 4. Default cache location
 
       cache_dir <- gisco_set_cache_dir(
         overwrite = TRUE,
         verbose = FALSE
       )
-      return(cache_dir)
+      cache_dir
     }
   } else {
-    return(getvar)
+    getvar
   }
   # nocov end
 }

R/gisco_check_access.R

@@ -23,14 +23,14 @@ gisco_check_access <- function() {
     tryCatch(
       download.file(url, destfile = tempfile(), quiet = TRUE),
       warning = function(e) {
-        return(FALSE)
+        FALSE
       }
     )
 
   if (isFALSE(access)) {
-    return(FALSE)
+    FALSE
   } else {
-    return(TRUE)
+    TRUE
   }
   # nocov end
 }
@@ -45,6 +45,6 @@ skip_if_gisco_offline <- function() {
   if (requireNamespace("testthat", quietly = TRUE)) {
     testthat::skip("GISCO API not reachable")
   }
-  return(invisible())
+  invisible()
   # nocov end
 }

R/gisco_get_units.R

@@ -261,7 +261,7 @@ gsc_units_sf <- function(id_giscoR,
 
   # Last check
   df_sf <- sf::st_make_valid(df_sf)
-  return(df_sf)
+  df_sf
 }
 
 #' Download data frame for units
@@ -349,5 +349,5 @@ gsc_units_df <- function(id_giscoR, year, api_url, verbose) {
 
 
   gsc_message(verbose, "Database loaded succesfully")
-  return(df_csv)
+  df_csv
 }

R/utils_names.R

@@ -92,7 +92,7 @@ gsc_helper_utf8 <- function(data_sf) {
   colnames(data_sf) <- newnames
   data_sf <- sf::st_set_geometry(data_sf, nm)
 
-  return(data_sf)
+  data_sf
 }
 
 
@@ -105,7 +105,7 @@ gsc_message <- function(verbose, ...) {
 
   if (verbose) message(msg)
 
-  return(invisible())
+  invisible()
 }
 
 

README.md

@@ -186,7 +186,6 @@ We now download the data from Eurostat:
 library(eurostat)
 popdens <- get_eurostat("demo_r_d3dens") %>%
   filter(TIME_PERIOD == "2021-01-01")
-#> indexed 0B in  0s, 0B/sindexed 2.15GB in  0s, 2.15GB/s                                                                              
 ```
 
 By last, we merge and manipulate the data for creating the final plot:

codemeta.json

@@ -239,8 +239,8 @@
   },
   "applicationCategory": "cartography",
   "isPartOf": "http://ropengov.org/",
-  "keywords": ["ropengov", "r", "spatial", "api-wrapper", "rstats", "r-package", "eurostat", "gisco", "thematic-maps", "eurostat-data", "cran", "ggplot2", "gis"],
-  "fileSize": "1242.898KB",
+  "keywords": ["ropengov", "r", "spatial", "api-wrapper", "rstats", "r-package", "eurostat", "gisco", "thematic-maps", "eurostat-data", "cran", "ggplot2", "gis", "cran-r"],
+  "fileSize": "1241.968KB",
   "citation": [
     {
       "@type": "SoftwareSourceCode",