R Under development (unstable) (2024-12-05 r87423 ucrt) -- "Unsuffered Consequences" Copyright (C) 2024 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. > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview > # * https://testthat.r-lib.org/articles/special-files.html > > library(testthat) > library(qtkit) > library(httptest) > library(chromote) > > # Function to delete Crashpad directories > cleanup_crashpad <- function() { + crashpad_dirs <- dir(tempdir(), full.names = TRUE, pattern = "Crashpad") + if (length(crashpad_dirs) > 0) { + unlink(crashpad_dirs, recursive = TRUE) + } + } > > testthat::setup(cleanup_crashpad) > testthat::teardown(cleanup_crashpad) > > # Function to check if Chromium is > # available and can be initialized > is_chromium_available <- function() { + tryCatch({ + chromote::Chromote$new() + TRUE + }, error = function(e) { + FALSE + }) + } > > # Set the timeout for chromote (Windows only issue) > # https://github.com/rstudio/chromote/issues/114#issuecomment-1675406196 > options(chromote.timeout = 60) > > test_check("qtkit") Are you aware of the permissions to use this data? Are you aware of the permissions to use this data? Please review the documentation and try again. Attaching package: 'dplyr' The following object is masked from 'package:testthat': matches The following objects are masked from 'package:stats': filter, lag The following objects are masked from 'package:base': intersect, setdiff, setequal, union Variable name: x Q1: 2.25 Q3: 4.75 IQR: 2.5 Upper fence: 8.5 Lower fence: -1.5 Number of outliers: 1 Variable name: x Q1: 2 Q3: 4 IQR: 2 Upper fence: 7 Lower fence: -1 Number of outliers: 0 Creating target data directory Downloading data... trying URL 'https://raw.githubusercontent.com/qtalr/qtkit/main/inst/extdata/test_data.zip' Content type 'application/zip' length 1966 bytes ================================================== downloaded 1966 bytes Data downloaded! Data already exists Creating target data directory Downloading data... trying URL 'https://raw.githubusercontent.com/qtalr/qtkit/main/inst/extdata/test_data.zip' Content type 'application/zip' length 1966 bytes ================================================== downloaded 1966 bytes Data downloaded! Saving 7 x 7 in image Saving 7 x 7 in image Saving 7 x 7 in image Saving 7 x 7 in image Saving 7 x 7 in image Saving 7 x 7 in image Directory created: D:\temp\2024_12_08_00_55_01_30397\Rtmp6fkG3N/new_dir Saving 7 x 7 in image Saving 7 x 7 in image Saving 7 x 7 in image Attaching package: 'kableExtra' The following object is masked from 'package:dplyr': group_rows Google Chrome was not found. Try setting the `CHROMOTE_CHROME` environment variable to the executable of a Chromium-based browser, such as Google Chrome, Chromium or Brave. Directory created: D:\temp\2024_12_08_00_55_01_30397\Rtmp6fkG3N/non_existent_dir [ FAIL 0 | WARN 0 | SKIP 2 | PASS 110 ] ══ Skipped tests (2) ═══════════════════════════════════════════════════════════ • Chromium not available (1): 'test-write_kbl.R:11:3' • On CRAN (1): 'test-get_gutenberg_data.R:5:3' [ FAIL 0 | WARN 0 | SKIP 2 | PASS 110 ] > > proc.time() user system elapsed 4.56 0.64 5.42