Running ‘testthat.R’ [10s/12s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # 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(qualtRics)
  > 
  > test_check("qualtRics")
  To install your credentials for use in future sessions, run this function with `install = TRUE`.
  Problem items: income
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  To install your credentials for use in future sessions, run this function with `install = TRUE`.
  Problem items: invalidkey
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  re-record cassettes using 'preserve_exact_body_bytes = TRUE'
  To install your credentials for use in future sessions, run this function with `install = TRUE`.
  
  -- Column specification --------------------------------------------------------
  cols(
    .default = col_double(),
    StartDate = col_datetime(format = ""),
    EndDate = col_datetime(format = ""),
    IPAddress = col_character(),
    RecordedDate = col_datetime(format = ""),
    ResponseId = col_character(),
    RecipientLastName = col_logical(),
    RecipientFirstName = col_logical(),
    RecipientEmail = col_logical(),
    ExternalReference = col_logical(),
    DistributionChannel = col_character(),
    UserLanguage = col_character(),
    Q2 = col_character(),
    `Q2 - Topics` = col_logical()
  )
  i Use `spec()` for the full column specifications.
  
  
  -- Column specification --------------------------------------------------------
  cols(
    V1 = col_character(),
    V2 = col_character(),
    V3 = col_character(),
    V4 = col_logical(),
    V5 = col_logical(),
    V6 = col_character(),
    V7 = col_double(),
    V8 = col_datetime(format = ""),
    V9 = col_datetime(format = ""),
    V10 = col_double(),
    Q1 = col_double(),
    Q2 = col_character(),
    LocationLatitude = col_double(),
    LocationLongitude = col_double(),
    LocationAccuracy = col_double()
  )
  
  [ FAIL 11 | WARN 2 | SKIP 16 | PASS 64 ]
  
  ══ Skipped tests (16) ══════════════════════════════════════════════════════════
  • On CRAN (16): 'test-all-mailinglists.R:1:1', 'test-all-surveys.R:1:1',
    'test-api-credentials.R:2:3', 'test-api-credentials.R:11:3',
    'test-fetch-distribution-history.R:1:1', 'test-fetch-distributions.R:1:1',
    'test-fetch-mailinglist.R:1:1', 'test-fetch-survey.R:3:3',
    'test-fetch-survey.R:28:3', 'test-fetch-survey.R:59:3',
    'test-fetch-survey.R:83:3', 'test-fetch-survey.R:140:3',
    'test-fetch-survey.R:153:3', 'test-list-distribution-links.R:1:1',
    'test-qualtrics-api-request.R:5:3', 'test-survey-questions.R:1:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-column_map.R:8:3'): column_map() retrieves survey column mapping ──
  Names of `x` ('qid', 'choice', 'textEntry') don't match 'qname', 'qid', 'choice', 'textEntry'
  ── Failure ('test-column_map.R:9:3'): column_map() retrieves survey column mapping ──
  x$qname has type 'NULL', not 'character'.
  ── Error ('test-extract-colmap.R:4:5'): extract_colmap() retrieves an appropriate column map generated within read_survey ──
  Error in `export_responses_init(surveyID = surveyID, body = body)`: Qualtrics failed to return a progress ID for your download request
  * Please re-run your query.
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test-extract-colmap.R:3:3
   2. │ └─cassette$call_block(...)
   3. └─qualtRics::fetch_survey(...) at test-extract-colmap.R:4:5
   4.   └─qualtRics:::export_responses_request(...)
   5.     └─qualtRics:::export_responses_init(surveyID = surveyID, body = body)
   6.       └─rlang::abort(...)
  ── Error ('test-fetch-description.R:4:5'): fetch_description() retrieves an appropriate survey description ──
  <vctrs_error_ptype2/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `bind_rows(metadata, projectinfo)`: Can't combine `..1$name` <integer> and `..2$name` <character>.
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test-fetch-description.R:3:3
    2. │ └─cassette$call_block(...)
    3. ├─qualtRics::fetch_description("SV_6s93xhVtm1e4j3v") at test-fetch-description.R:4:5
    4. │ └─dplyr::bind_rows(metadata, projectinfo)
    5. │   └─vctrs::vec_rbind(!!!dots, .names_to = .id, .error_call = current_env())
    6. └─vctrs (local) `<fn>`()
    7.   └─vctrs::vec_default_ptype2(...)
    8.     ├─base::withRestarts(...)
    9.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   10.     │   └─base (local) doWithOneRestart(return(expr), restart)
   11.     └─vctrs::stop_incompatible_type(...)
   12.       └─vctrs:::stop_incompatible(...)
   13.         └─vctrs:::stop_vctrs(...)
   14.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-fetch-description.R:24:5'): fetch_description() with elements set works ──
  <vctrs_error_ptype2/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `bind_rows(metadata, projectinfo)`: Can't combine `..1$name` <integer> and `..2$name` <character>.
  Backtrace:
       ▆
    1. ├─vcr::use_cassette(...) at test-fetch-description.R:23:3
    2. │ └─cassette$call_block(...)
    3. ├─qualtRics::fetch_description(...) at test-fetch-description.R:24:5
    4. │ └─dplyr::bind_rows(metadata, projectinfo)
    5. │   └─vctrs::vec_rbind(!!!dots, .names_to = .id, .error_call = current_env())
    6. └─vctrs (local) `<fn>`()
    7.   └─vctrs::vec_default_ptype2(...)
    8.     ├─base::withRestarts(...)
    9.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   10.     │   └─base (local) doWithOneRestart(return(expr), restart)
   11.     └─vctrs::stop_incompatible_type(...)
   12.       └─vctrs:::stop_incompatible(...)
   13.         └─vctrs:::stop_vctrs(...)
   14.           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
  ── Error ('test-fetch-description.R:37:5'): fetch_description() with legacy = TRUE reverts to metadata() ──
  Error in `data.frame(surveyID = resp_filt$id, name = resp_filt$name, ownerId = resp_filt$ownerId, 
      organizationId = resp_filt$organizationId, isActive = resp_filt$isActive, 
      creationDate = resp_filt$creationDate, lastModifiedDate = resp_filt$lastModifiedDate, 
      expiration_startdate = ifelse(is.null(resp_filt$expiration$startDate), 
          NA, resp_filt$expiration$startDate), expiration_endDate = ifelse(is.null(resp_filt$expiration$endDate), 
          NA, resp_filt$expiration$endDate))`: arguments imply differing number of rows: 0, 1
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test-fetch-description.R:36:3
   2. │ └─cassette$call_block(...)
   3. └─qualtRics::fetch_description("SV_6s93xhVtm1e4j3v", legacy = TRUE) at test-fetch-description.R:37:5
   4.   └─qualtRics::metadata(surveyID = surveyID, get = elements, ...)
   5.     └─base::data.frame(...)
  ── Error ('test-fetch-description.R:53:5'): setting elements works with legacy = TRUE  ──
  Error in `data.frame(surveyID = resp_filt$id, name = resp_filt$name, ownerId = resp_filt$ownerId, 
      organizationId = resp_filt$organizationId, isActive = resp_filt$isActive, 
      creationDate = resp_filt$creationDate, lastModifiedDate = resp_filt$lastModifiedDate, 
      expiration_startdate = ifelse(is.null(resp_filt$expiration$startDate), 
          NA, resp_filt$expiration$startDate), expiration_endDate = ifelse(is.null(resp_filt$expiration$endDate), 
          NA, resp_filt$expiration$endDate))`: arguments imply differing number of rows: 0, 1
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test-fetch-description.R:52:3
   2. │ └─cassette$call_block(...)
   3. └─qualtRics::fetch_description(...) at test-fetch-description.R:53:5
   4.   └─qualtRics::metadata(surveyID = surveyID, get = elements, ...)
   5.     └─base::data.frame(...)
  ── Error ('test-fetch-description.R:90:6'): passing a list to elements when legacy = TRUE succeeds with warning  ──
  Error in `data.frame(surveyID = resp_filt$id, name = resp_filt$name, ownerId = resp_filt$ownerId, 
      organizationId = resp_filt$organizationId, isActive = resp_filt$isActive, 
      creationDate = resp_filt$creationDate, lastModifiedDate = resp_filt$lastModifiedDate, 
      expiration_startdate = ifelse(is.null(resp_filt$expiration$startDate), 
          NA, resp_filt$expiration$startDate), expiration_endDate = ifelse(is.null(resp_filt$expiration$endDate), 
          NA, resp_filt$expiration$endDate))`: arguments imply differing number of rows: 0, 1
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-fetch-description.R:88:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─vcr::use_cassette(...)
    8. │ └─cassette$call_block(...)
    9. └─qualtRics::fetch_description(...) at test-fetch-description.R:90:6
   10.   └─qualtRics::metadata(surveyID = surveyID, get = elements, ...)
   11.     └─base::data.frame(...)
  ── Error ('test-metadata.R:22:5'): metadata() should return metadata + questions + responsecounts ──
  Error in `data.frame(surveyID = resp_filt$id, name = resp_filt$name, ownerId = resp_filt$ownerId, 
      organizationId = resp_filt$organizationId, isActive = resp_filt$isActive, 
      creationDate = resp_filt$creationDate, lastModifiedDate = resp_filt$lastModifiedDate, 
      expiration_startdate = ifelse(is.null(resp_filt$expiration$startDate), 
          NA, resp_filt$expiration$startDate), expiration_endDate = ifelse(is.null(resp_filt$expiration$endDate), 
          NA, resp_filt$expiration$endDate))`: arguments imply differing number of rows: 0, 1
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test-metadata.R:21:3
   2. │ └─cassette$call_block(...)
   3. └─qualtRics::metadata("SV_3gbwq8aJgqPwQDP") at test-metadata.R:22:5
   4.   └─base::data.frame(...)
  ── Error ('test-metadata.R:36:5'): metadata() returns flow if specified in new way (char vec) ──
  Error in `data.frame(surveyID = resp_filt$id, name = resp_filt$name, ownerId = resp_filt$ownerId, 
      organizationId = resp_filt$organizationId, isActive = resp_filt$isActive, 
      creationDate = resp_filt$creationDate, lastModifiedDate = resp_filt$lastModifiedDate, 
      expiration_startdate = ifelse(is.null(resp_filt$expiration$startDate), 
          NA, resp_filt$expiration$startDate), expiration_endDate = ifelse(is.null(resp_filt$expiration$endDate), 
          NA, resp_filt$expiration$endDate))`: arguments imply differing number of rows: 0, 1
  Backtrace:
      ▆
   1. ├─vcr::use_cassette(...) at test-metadata.R:35:3
   2. │ └─cassette$call_block(...)
   3. └─qualtRics::metadata("SV_3gbwq8aJgqPwQDP", get = "flow") at test-metadata.R:36:5
   4.   └─base::data.frame(...)
  ── Error ('test-metadata.R:50:5'): metadata() ADDS flow if specified in old way (logical list) ──
  Error in `data.frame(surveyID = resp_filt$id, name = resp_filt$name, ownerId = resp_filt$ownerId, 
      organizationId = resp_filt$organizationId, isActive = resp_filt$isActive, 
      creationDate = resp_filt$creationDate, lastModifiedDate = resp_filt$lastModifiedDate, 
      expiration_startdate = ifelse(is.null(resp_filt$expiration$startDate), 
          NA, resp_filt$expiration$startDate), expiration_endDate = ifelse(is.null(resp_filt$expiration$endDate), 
          NA, resp_filt$expiration$endDate))`: arguments imply differing number of rows: 0, 1
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-metadata.R:48:1
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─vcr::use_cassette(...)
    8. │ └─cassette$call_block(...)
    9. └─qualtRics::metadata("SV_3gbwq8aJgqPwQDP", get = list(flow = TRUE)) at test-metadata.R:50:5
   10.   └─base::data.frame(...)
  
  [ FAIL 11 | WARN 2 | SKIP 16 | PASS 64 ]
  Error: Test failures
  In addition: Warning message:
  In readRenviron("~/.Renviron") :
    file '/data/gannet/ripley/.Renviron' cannot be opened for reading
  Execution halted