R Under development (unstable) (2025-02-08 r87709 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(details)
> 
> test_check("details")
 [1] "<details closed>"                                                       
 [2] ""                                                                       
 [3] "```r"                                                                   
 [4] ""                                                                       
 [5] "                     mpg cyl  disp  hp drat    wt  qsec vs am gear carb"
 [6] "Mazda RX4           21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4"
 [7] "Mazda RX4 Wag       21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4"
 [8] "Datsun 710          22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1"
 [9] "Hornet 4 Drive      21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1"
[10] "Hornet Sportabout   18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2"
[11] "Valiant             18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1"
[12] "Duster 360          14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4"
[13] "Merc 240D           24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2"
[14] "Merc 230            22.8   4 140.8  95 3.92 3.150 22.90  1  0    4    2"
[15] "Merc 280            19.2   6 167.6 123 3.92 3.440 18.30  1  0    4    4"
[16] "Merc 280C           17.8   6 167.6 123 3.92 3.440 18.90  1  0    4    4"
[17] "Merc 450SE          16.4   8 275.8 180 3.07 4.070 17.40  0  0    3    3"
[18] "Merc 450SL          17.3   8 275.8 180 3.07 3.730 17.60  0  0    3    3"
[19] "Merc 450SLC         15.2   8 275.8 180 3.07 3.780 18.00  0  0    3    3"
[20] "Cadillac Fleetwood  10.4   8 472.0 205 2.93 5.250 17.98  0  0    3    4"
[21] "Lincoln Continental 10.4   8 460.0 215 3.00 5.424 17.82  0  0    3    4"
[22] "Chrysler Imperial   14.7   8 440.0 230 3.23 5.345 17.42  0  0    3    4"
[23] "Fiat 128            32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1"
[24] "Honda Civic         30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2"
[25] "Toyota Corolla      33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1"
[26] "Toyota Corona       21.5   4 120.1  97 3.70 2.465 20.01  1  0    3    1"
[27] "Dodge Challenger    15.5   8 318.0 150 2.76 3.520 16.87  0  0    3    2"
[28] "AMC Javelin         15.2   8 304.0 150 3.15 3.435 17.30  0  0    3    2"
[29] "Camaro Z28          13.3   8 350.0 245 3.73 3.840 15.41  0  0    3    4"
[30] "Pontiac Firebird    19.2   8 400.0 175 3.08 3.845 17.05  0  0    3    2"
[31] "Fiat X1-9           27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1"
[32] "Porsche 914-2       26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2"
[33] "Lotus Europa        30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2"
[34] "Ford Pantera L      15.8   8 351.0 264 4.22 3.170 14.50  0  1    5    4"
[35] "Ferrari Dino        19.7   6 145.0 175 3.62 2.770 15.50  0  1    5    6"
[36] "Maserati Bora       15.0   8 301.0 335 3.54 3.570 14.60  0  1    5    8"
[37] "Volvo 142E          21.4   4 121.0 109 4.11 2.780 18.60  1  1    4    2"
[38] ""                                                                       
[39] "```"                                                                    
[40] ""                                                                       
[41] "</details>"                                                             
[42] "<br>"                                                                   
 [1] "<details closed>"                                    
 [2] ""                                                    
 [3] "```r"                                                
 [4] ""                                                    
 [5] "  mpg cyl  disp  hp drat    wt  qsec vs am gear carb"
 [6] " 21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4"
 [7] " 21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4"
 [8] " 22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1"
 [9] " 21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1"
[10] " 18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2"
[11] " 18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1"
[12] " 14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4"
[13] " 24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2"
[14] " 22.8   4 140.8  95 3.92 3.150 22.90  1  0    4    2"
[15] " 19.2   6 167.6 123 3.92 3.440 18.30  1  0    4    4"
[16] " 17.8   6 167.6 123 3.92 3.440 18.90  1  0    4    4"
[17] " 16.4   8 275.8 180 3.07 4.070 17.40  0  0    3    3"
[18] " 17.3   8 275.8 180 3.07 3.730 17.60  0  0    3    3"
[19] " 15.2   8 275.8 180 3.07 3.780 18.00  0  0    3    3"
[20] " 10.4   8 472.0 205 2.93 5.250 17.98  0  0    3    4"
[21] " 10.4   8 460.0 215 3.00 5.424 17.82  0  0    3    4"
[22] " 14.7   8 440.0 230 3.23 5.345 17.42  0  0    3    4"
[23] " 32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1"
[24] " 30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2"
[25] " 33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1"
[26] " 21.5   4 120.1  97 3.70 2.465 20.01  1  0    3    1"
[27] " 15.5   8 318.0 150 2.76 3.520 16.87  0  0    3    2"
[28] " 15.2   8 304.0 150 3.15 3.435 17.30  0  0    3    2"
[29] " 13.3   8 350.0 245 3.73 3.840 15.41  0  0    3    4"
[30] " 19.2   8 400.0 175 3.08 3.845 17.05  0  0    3    2"
[31] " 27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1"
[32] " 26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2"
[33] " 30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2"
[34] " 15.8   8 351.0 264 4.22 3.170 14.50  0  1    5    4"
[35] " 19.7   6 145.0 175 3.62 2.770 15.50  0  1    5    6"
[36] " 15.0   8 301.0 335 3.54 3.570 14.60  0  1    5    8"
[37] " 21.4   4 121.0 109 4.11 2.780 18.60  1  1    4    2"
[38] ""                                                    
[39] "```"                                                 
[40] ""                                                    
[41] "</details>"                                          
[42] "<br>"                                                
 [1] "<details closed>"                                                                    
 [2] ""                                                                                    
 [3] "```r"                                                                                
 [4] ""                                                                                    
 [5] "# taken from https://github.com/tidyverse/reprex/blob/master/tests/testthat/helper.R"
 [6] ""                                                                                    
 [7] "## used to make clipboard unavailable locally"                                       
 [8] "# Sys.setenv(\"CLIPBOARD_AVAILABLE\" = TRUE)"                                        
 [9] "# Sys.setenv(\"CLIPBOARD_AVAILABLE\" = FALSE)"                                       
[10] ""                                                                                    
[11] "NOT_CRAN <- Sys.getenv(\"NOT_CRAN\", unset = \"\")"                                  
[12] ""                                                                                    
[13] "ON_CRAN <- identical(NOT_CRAN, \"\") || identical(tolower(NOT_CRAN), \"false\")"     
[14] ""                                                                                    
[15] "if (ON_CRAN) {"                                                                      
[16] "  Sys.setenv(\"CLIPBOARD_AVAILABLE\" = FALSE)"                                       
[17] "}"                                                                                   
[18] ""                                                                                    
[19] "clipboard_available <- function() {"                                                 
[20] "  "                                                                                  
[21] "  if (Sys.getenv(\"CLIPBOARD_AVAILABLE\", unset = TRUE)) {"                          
[22] "    return(clipr::clipr_available())"                                                
[23] "  }"                                                                                 
[24] "  FALSE"                                                                             
[25] "}"                                                                                   
[26] ""                                                                                    
[27] "skip_if_no_clipboard <- function() {"                                                
[28] "  if (!clipboard_available()) {"                                                     
[29] "    testthat::skip(\"System clipboard is not available - skipping test.\")"          
[30] "  }"                                                                                 
[31] "  return(invisible(TRUE))"                                                           
[32] "}"                                                                                   
[33] ""                                                                                    
[34] ""                                                                                    
[35] "bench_fun <- function(body, lang = 'r',...){"                                        
[36] "  "                                                                                  
[37] "  body <- sprintf('\\n\\n%s\\n\\n',details:::capture.print(body,...))"               
[38] "  if(!grepl('^none$',lang)){"                                                        
[39] "    body <- sprintf('```%s%s```',lang,body)"                                         
[40] "  }"                                                                                 
[41] "  sprintf('<details closed>\\n\\n%s\\n\\n</details>\\n<br>',body)"                   
[42] "  "                                                                                  
[43] "}"                                                                                   
[44] ""                                                                                    
[45] "bench_fun2 <- function(body, lang = 'r',...){"                                       
[46] "  "                                                                                  
[47] "  body <- sprintf('\\n\\n%s\\n\\n',details:::capture.print(body,...))"               
[48] "  if(!grepl('^none$',lang)){"                                                        
[49] "    body <- sprintf('```%s%s```',lang,body)"                                         
[50] "  }"                                                                                 
[51] "  sprintf('<details closed>\\n\\n%s\\n\\n</details>\\n<br>\\r',body)"                
[52] "  "                                                                                  
[53] "}"                                                                                   
[54] ""                                                                                    
[55] "scratch_desc <- function(path = tempdir()){"                                         
[56] "  "                                                                                  
[57] "  f <- file.path(path,'DESCRIPTION')"                                                
[58] "  "                                                                                  
[59] "  if(file.exists(f))"                                                                
[60] "    unlink(f,force = TRUE)"                                                          
[61] "  "                                                                                  
[62] "  file.create(f)"                                                                    
[63] "  "                                                                                  
[64] "  d <- desc::desc('!new')"                                                           
[65] "  "                                                                                  
[66] "  d$write(file = f)"                                                                 
[67] ""                                                                                    
[68] "  f"                                                                                 
[69] "}"                                                                                   
[70] ""                                                                                    
[71] "```"                                                                                 
[72] ""                                                                                    
[73] "</details>"                                                                          
[74] "<br>"                                                                                
 [1] "<details closed>" ""                 "```r"             ""                
 [5] "[1] 21"           ""                 "```"              ""                
 [9] "</details>"       "<br>"            
 [1] "<details closed>"                                                                    
 [2] ""                                                                                    
 [3] ""                                                                                    
 [4] ""                                                                                    
 [5] "# taken from https://github.com/tidyverse/reprex/blob/master/tests/testthat/helper.R"
 [6] ""                                                                                    
 [7] "## used to make clipboard unavailable locally"                                       
 [8] "# Sys.setenv(\"CLIPBOARD_AVAILABLE\" = TRUE)"                                        
 [9] "# Sys.setenv(\"CLIPBOARD_AVAILABLE\" = FALSE)"                                       
[10] ""                                                                                    
[11] "NOT_CRAN <- Sys.getenv(\"NOT_CRAN\", unset = \"\")"                                  
[12] ""                                                                                    
[13] "ON_CRAN <- identical(NOT_CRAN, \"\") || identical(tolower(NOT_CRAN), \"false\")"     
[14] ""                                                                                    
[15] "if (ON_CRAN) {"                                                                      
[16] "  Sys.setenv(\"CLIPBOARD_AVAILABLE\" = FALSE)"                                       
[17] "}"                                                                                   
[18] ""                                                                                    
[19] "clipboard_available <- function() {"                                                 
[20] "  "                                                                                  
[21] "  if (Sys.getenv(\"CLIPBOARD_AVAILABLE\", unset = TRUE)) {"                          
[22] "    return(clipr::clipr_available())"                                                
[23] "  }"                                                                                 
[24] "  FALSE"                                                                             
[25] "}"                                                                                   
[26] ""                                                                                    
[27] "skip_if_no_clipboard <- function() {"                                                
[28] "  if (!clipboard_available()) {"                                                     
[29] "    testthat::skip(\"System clipboard is not available - skipping test.\")"          
[30] "  }"                                                                                 
[31] "  return(invisible(TRUE))"                                                           
[32] "}"                                                                                   
[33] ""                                                                                    
[34] ""                                                                                    
[35] "bench_fun <- function(body, lang = 'r',...){"                                        
[36] "  "                                                                                  
[37] "  body <- sprintf('\\n\\n%s\\n\\n',details:::capture.print(body,...))"               
[38] "  if(!grepl('^none$',lang)){"                                                        
[39] "    body <- sprintf('```%s%s```',lang,body)"                                         
[40] "  }"                                                                                 
[41] "  sprintf('<details closed>\\n\\n%s\\n\\n</details>\\n<br>',body)"                   
[42] "  "                                                                                  
[43] "}"                                                                                   
[44] ""                                                                                    
[45] "bench_fun2 <- function(body, lang = 'r',...){"                                       
[46] "  "                                                                                  
[47] "  body <- sprintf('\\n\\n%s\\n\\n',details:::capture.print(body,...))"               
[48] "  if(!grepl('^none$',lang)){"                                                        
[49] "    body <- sprintf('```%s%s```',lang,body)"                                         
[50] "  }"                                                                                 
[51] "  sprintf('<details closed>\\n\\n%s\\n\\n</details>\\n<br>\\r',body)"                
[52] "  "                                                                                  
[53] "}"                                                                                   
[54] ""                                                                                    
[55] "scratch_desc <- function(path = tempdir()){"                                         
[56] "  "                                                                                  
[57] "  f <- file.path(path,'DESCRIPTION')"                                                
[58] "  "                                                                                  
[59] "  if(file.exists(f))"                                                                
[60] "    unlink(f,force = TRUE)"                                                          
[61] "  "                                                                                  
[62] "  file.create(f)"                                                                    
[63] "  "                                                                                  
[64] "  d <- desc::desc('!new')"                                                           
[65] "  "                                                                                  
[66] "  d$write(file = f)"                                                                 
[67] ""                                                                                    
[68] "  f"                                                                                 
[69] "}"                                                                                   
[70] ""                                                                                    
[71] ""                                                                                    
[72] ""                                                                                    
[73] "</details>"                                                                          
[74] "<br>"                                                                                
[ FAIL 0 | WARN 0 | SKIP 1 | PASS 27 ]

══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• System clipboard is not available - skipping test. (1): 'test-print.R:5:3'

[ FAIL 0 | WARN 0 | SKIP 1 | PASS 27 ]
> 
> proc.time()
   user  system elapsed 
   2.35    0.76    3.09