Added an alternative way to download files directly from Avoin data

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: kelaopendata
 Type: Package
 Title: Access open data from National social insurance institution of Finland
-Version: 0.1.0002
-Date: 2024-06-06
+Version: 0.1.1
+Date: 2024-08-26
 Author: Markus Kainu
 Maintainer: Markus Kainu <[email protected]>
 Description: Designed to simplify and speed up access to open data from National social insurance institution of Finland (KELA) published at <https://www.avoindata.fi/data/fi/organization/kela>, the kelaopendata package offers researchers and analysts a set of tools to obtain data and metadata for a wide range of applications.
@@ -21,4 +21,4 @@ Imports:
     glue
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2

NAMESPACE

@@ -2,6 +2,7 @@
 
 export(get_csv_links)
 export(get_data)
+export(get_data_csv)
 export(get_metadata)
 export(list_ckan)
 export(list_datasets)
@@ -20,3 +21,4 @@ importFrom(dplyr,filter)
 importFrom(dplyr,mutate)
 importFrom(glue,glue)
 importFrom(jsonlite,fromJSON)
+importFrom(readr,read_csv)

R/onAttach.R

@@ -0,0 +1,5 @@
+.onAttach <- function(lib, pkg) {
+  packageStartupMessage(paste0("kelaopendata ",
+                               utils::packageVersion("kelaopendata"),
+                               ": Access open data from Kela.\nhttps://github.com/ropengov/kelaopendata\nData is licensed under CC-BY 4.0. Please give appropriate attribution to Kela when using data."))
+}

R/read_data.R

@@ -34,6 +34,29 @@ get_data <- function(data_id, sql = NA){
 }
 
 
+#' Download the whole data set using csv-files
+#'
+#' @param data_id data id
+#'
+#' @return tibble
+#' @export
+#'
+#' @importFrom readr read_csv
+#' @importFrom dplyr as_tibble
+#' @importFrom dplyr %>%
+#'
+get_data_csv <- function(data_id){
+
+  pkg_lst <- pick_a_pkg(input_dataset = data_id)
+
+  csv_links <- get_csv_links(pkg_lst = pkg_lst)
+
+  flst <- lapply(csv_links, readr::read_csv)
+  res <- do.call('rbind', flst) |> as_tibble()
+  return(res)
+}
+
+