Control view length with an option

Author: hadley

R/view.R

@@ -168,7 +168,7 @@ str_view_widget <- function(lines) {
 }
 
 #' @export
-print.stringr_view <- function(x, ..., n = 20) {
+print.stringr_view <- function(x, ..., n = getOption("stringr.view_n", 20)) {
   n_extra <- length(x) - n
   if (n_extra > 0) {
     x <- x[seq_len(n)]

tests/testthat/_snaps/view.md

@@ -25,6 +25,18 @@
       [20] | again
       ... and 960 more
 
+---
+
+    Code
+      str_view(words)
+    Output
+      [1] | a
+      [2] | able
+      [3] | about
+      [4] | absolute
+      [5] | accept
+      ... and 975 more
+
 # indices come from original vector
 
     Code

tests/testthat/test-view.R

@@ -1,5 +1,9 @@
 test_that("results are truncated", {
   expect_snapshot(str_view(words))
+
+  # and can control with option
+  local_options(stringr.view_n = 5)
+  expect_snapshot(str_view(words))
 })
 
 test_that("indices come from original vector", {