version 0.1.4

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: imf.data
 Title: An Interface to IMF (International Monetary Fund) Data JSON API
-Version: 0.1.3
+Version: 0.1.4
 Authors@R: 
     person("Pedro", "Baltazar",, "pedrobtz@gmail.com", role = c("aut", "cre"))
 Description: A straightforward interface for accessing the IMF 
@@ -21,8 +21,8 @@ Config/testthat/edition: 3
 URL: https://pedrobtz.github.io/imf.data/
 BugReports: https://github.com/pedrobtz/imf.data/issues
 NeedsCompilation: no
-Packaged: 2023-11-27 20:44:10 UTC; pbtz
+Packaged: 2024-01-25 16:00:55 UTC; pbtz
 Author: Pedro Baltazar [aut, cre]
 Maintainer: Pedro Baltazar <pedrobtz@gmail.com>
 Repository: CRAN
-Date/Publication: 2023-11-28 10:00:06 UTC
+Date/Publication: 2024-01-25 22:20:02 UTC

MD5

@@ -1,16 +1,16 @@
-6eb754fbd25c5207f7f36f94a6f78d65 *DESCRIPTION
+bc40a1b313b4e6f030ae2296efc0e599 *DESCRIPTION
 4b4dc26a2562dc2187d00821cbe32e36 *LICENSE
 4b4a95efc195552823cbe2b6923db362 *NAMESPACE
-a0605dd1222d50fda640c0ddd5557995 *NEWS.md
-0402dc39f9eebe8fe19c32d5a6f028e4 *R/database.R
-da868b7e4774aea2c941b4c79a96df46 *R/methods.R
+b00879866b19f046db53f5d269d4e13c *NEWS.md
+fa4ba5a8be6600706d2b34a7bc61e891 *R/database.R
+13e7d1b711b7556a03a41806f538eb53 *R/methods.R
 c3c4f326dca8c8e795db55b8da1d242b *R/package.R
 1277d734fbc34b933e56626f0145e627 *R/request.R
 6cd1949e458a43656c057a196a632af2 *R/settings.R
-c751abddc9a7ff6175afb6e68c8b9018 *R/zzz.R
+12d39ce2f244b33e673e6807fee0678c *R/zzz.R
 4f53bd6a34ef91467dd46ed8f81779a2 *man/imf.data-package.Rd
-63a0a2f9a8836eba31e3ffac204b12ef *man/list_datasets.Rd
+481f6b12ead2c813ebd2c4905a10137d *man/list_datasets.Rd
 005c4713445b3f4d4d27623d096f9a14 *man/load_datasets.Rd
-ef7f25f7ba423f03250f545a1b9e63f5 *man/mt_compact_data.Rd
-a144f113508088575e9ad36284751210 *man/mt_data_structure.Rd
-88030fcead6b5fddbc83a0932fb23a18 *man/mt_dataflow.Rd
+daf7f49e305fed80ce94691361105c50 *man/mt_compact_data.Rd
+74cdd32bd999fd229239f07c620868e1 *man/mt_data_structure.Rd
+e628bb61a03ba7ca1b6e5c65fe1f8b6a *man/mt_dataflow.Rd

NEWS.md

@@ -1,5 +1,9 @@
 # imf.data
 
+# imf.data 0.1.4
+
+* set 'curl' timeout to 5 minutes.
+
 # imf.data 0.1.3
 
 * improve error handling, when service responds with html message.

R/database.R

@@ -5,15 +5,16 @@
 #' @export
 #'
 #' @examples
-#' list_datasets()
-#'
+#' d <- list_datasets()
+#' head(d)
 
 list_datasets <- function(){
   x <- mt_dataflow()
   if(is.null(x)) return(invisible(NULL))
   res <- data.frame(ID = sapply(x,function(y)y$KeyFamilyRef$KeyFamilyID),
                     Description = sapply(x,function(y)y$Name$`#text`))
   res <- res[ order(res$ID), ]
+  rownames(res) <- NULL
   return(res)
 }
 
@@ -74,7 +75,7 @@ load_datasets <- local({
     }
 
     series <- cbind_series(transform_series(series, dimensions))
-
+    row.names(series) <- NULL
     return(series)
   }
 
@@ -127,6 +128,7 @@ extract_dimension_names <- function(data_str){
   colnames(res) <- c("Codelist", "Name")
   res$Name <- tolower(res$Name)
   res$Num <- seq_along(res$Name)
+  row.names(res) <- NULL
   return(res)
 }
 
@@ -142,6 +144,7 @@ extract_dimension_values <- function(data_str, dimensions){
   lapply(ls_values, function(x){
     x <- x[, c("@value","Description.#text")]
     colnames(x) <- c("Value","Description")
+    row.names(x) <- NULL
     return(x)
   })
 }
@@ -210,9 +213,11 @@ cbind_series <- function(series){
 
   stopifnot(is.list(series), length(series) > 1L)
 
-  Reduce(x = series, function(x,y){
+  res <- Reduce(x = series, function(x,y){
     merge(x, y, by = "TIME_PERIOD", all = TRUE)
   })
+  row.names(res) <- NULL
+  return(res)
 }
 
 rbind_list <- function(x){
@@ -231,7 +236,9 @@ rbind_list <- function(x){
     return(y)
   })
 
-  return(Reduce(rbind, res))
+  res <- Reduce(rbind, res)
+  row.names(res) <- NULL
+  return(res)
 }
 
 transform_series <- function(series, dimensions){
@@ -252,5 +259,6 @@ transform_series <- function(series, dimensions){
     return(d)
   })
 
+  row.names(res) <- NULL
   return(res)
 }

R/methods.R

@@ -3,7 +3,7 @@
 #'
 #' @returns a list with content of 'Dataflow' response.
 #' @examples
-#' mt_dataflow()
+#' DF <- mt_dataflow()
 #'
 #' @export
 mt_dataflow <- local({
@@ -28,7 +28,7 @@ mt_dataflow <- local({
 #' @returns a list with content of 'DataStructure' response.
 #'
 #' @examples
-#' mt_data_structure("DOT")
+#' DOT <- mt_data_structure("DOT")
 #'
 #' @export
 mt_data_structure <- function(id){
@@ -63,9 +63,9 @@ mt_data_structure <- function(id){
 #' 'yyyy', 'yyyy-mm' or 'yyyy-mm-dd'.
 #'
 #' @examples
-#' mt_compact_data("IFS", list("M", "GB", "PMP_IX"))
-#' mt_compact_data("IFS", list("M", "GB", "PMP_IX"), start_period = "2000-01")
-#' mt_compact_data("DOT", list("M","GB", "TMG_CIF_USD", c("B0","W00")))
+#' IFS <- mt_compact_data("IFS", list("M", "GB", "PMP_IX"))
+#' IFS <- mt_compact_data("IFS", list("M", "GB", "PMP_IX"), start_period = "2000-01")
+#' DOT <- mt_compact_data("DOT", list("M","GB", "TMG_CIF_USD", c("B0","W00")))
 #'
 #' @export
 mt_compact_data <- function(id,

R/zzz.R

@@ -1,8 +1,8 @@
 
-
 .onAttach <- function(libname, pkgname) {
 
   settings$verbose(FALSE)
+  settings$handle_options(list(timeout_ms = 60*5*1000))
   # limit 7 requests per 5 seconds window
   request_limit$set_rate(limit = 7, window = 5)
 }