✨print N option

pierucci · Dec 4, 2016 · 884b921 · 884b921
1 parent de497bc
commit 884b921
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/R/print.R b/R/print.R
@@ -7,7 +7,7 @@ to_data_frame <- function(x, n = length(x)) {
 }
 
 #' @export
-print.gho <- function(x, n = 6, ...) {
+print.gho <- function(x, n = options()$rgho.n, ...) {
   if (n == Inf) {
     n <- length(x)
   }

diff --git a/R/zzz.R b/R/zzz.R
@@ -4,7 +4,8 @@
     rgho.verbose = FALSE,
     rgho.retry = 5,
     rgho.memotime = 3600,
-    rgho.http_proxy = NULL
+    rgho.http_proxy = NULL,
+    rgho.n = 6
   )
   toset <- !(names(op.rgho) %in% names(op))
   if(any(toset)) options(op.rgho[toset])

diff --git a/vignettes/a-intro.Rmd b/vignettes/a-intro.Rmd
@@ -37,6 +37,8 @@ get_gho_codes(dimension = "COUNTRY")
 get_gho_codes(dimension = "GHO")
 ```
 
+The number of printed items can be changed by the option `rgho.n`.
+
 ## Search
 
 The function `search_dimensions()` and `search_codes()` research a term in dimension or codes labels, respectively.