Default to qs2 format (qs is defunct in pins 1.4.2)

DESCRIPTION

@@ -1,10 +1,14 @@
 Package: dlw
 Type: Package
 Title: R Client for the internal Datalibweb API of the World Bank
-Version: 0.1.1
-Authors@R: person("R.Andres", "Castaneda",
+Version: 0.1.2
+Authors@R: c(
+    person("R.Andres", "Castaneda",
                             email = "acastanedaa@worldbank.org",
-                            role = c("aut", "cre"))
+                            role = c("aut", "cre")),
+    person("Ben", "Brunckhorst",
+                            email = "84766772+bbrunckh@users.noreply.github.com",
+                            role = "ctb"))
 Description: More about what it does (maybe more than one line).
     Continuation lines should be indented.
 License: MIT + file LICENSE
@@ -14,7 +18,7 @@ URL: https://github.com/worldbank/dlw, https://worldbank.github.io/dlw/
 BugReports: https://github.com/worldbank/dlw/issues
 Depends: 
     R (>= 3.5)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Imports: 
     cli,
     data.table,
@@ -23,6 +27,7 @@ Imports:
     httr2,
     keyring,
     pins,
+    qs2,
     rlang,
     stats
 Suggests: 

NEWS.md

@@ -1,3 +1,5 @@
+# dlw 0.1.2
+
 # dlw 0.1.1
 
 * fixes issue in #14

R/dlw_get_data.R

@@ -9,8 +9,8 @@
 #'   in option dlw.local_dir which is set initially as "".
 #' @param local logical: whether or not to save and read data locally. default
 #'   is TRUE if `local_dir` exists.
-#' @param format character: File format to use for pinning data ('parquet'
-#'   [default] or 'qs')
+#' @param format character: File format to use for pinning data ('qs2'
+#'   [default] or 'parquet')
 #' @param local_overwrite logical. Whether to overwrite any saved data. Default
 #'   is FALSE
 #' @param version numeric: Version of the pin to read (for pinning data
@@ -69,7 +69,7 @@ dlw_get_data <- function(country_code,
 #' @inheritParams dlw_get_data
 #' @inheritParams dlw_read
 #' @param filename character: Name of the file to save/read (required)
-#' @param format character: File format to use for pinning data ('qs'
+#' @param format character: File format to use for pinning data ('qs2'
 #'   [default] or 'parquet')
 #' @returns A list with the board and pin_name used
 #' @keywords internal
@@ -89,7 +89,7 @@ dlw_download <- function(country_code,
 
   # prepare the args for request
   dots <- list(...)
-  endpoint <- "FileInformation/GetFileInfo"
+  endpoint <- "FileInformationInternal/GetFileInfo"
   args <- c(list(Country = country_code,
                  method = "POST",
                  Server = server,

R/zzz.R

@@ -5,7 +5,7 @@ op.dlw <- list(
   cli.ignore_unknown_rstudio_theme = TRUE,
   dlw.local_dir = Sys.getenv("DLW_local_dir"),
   dlw.board_type = c("folder", "local"),
-  dlw.format     = c("qs", "parquet"),
+  dlw.format     = c("qs2", "parquet"),
   dlw.download_formats = c("dta") # we could add more later.
 )