1test_that("max argument", { 2 expect_snapshot({ 3 print(num(1:10), max = 5) 4 print(char(letters), max = 10) 5 }) 6}) 7 8test_that("max.print option", { 9 local_options(max.print = 3) 10 11 expect_snapshot({ 12 num(1:10) 13 char(letters) 14 }) 15}) 16