Last updated on 2025-07-22 08:48:40 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 3.2.1 | 7.15 | 65.17 | 72.32 | OK | |
| r-devel-linux-x86_64-debian-gcc | 3.2.1 | 4.66 | 46.63 | 51.29 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 3.2.1 | 115.90 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 3.2.1 | 121.50 | ERROR | |||
| r-devel-windows-x86_64 | 3.2.1 | 8.00 | 82.00 | 90.00 | OK | |
| r-patched-linux-x86_64 | 3.2.1 | 6.17 | 60.00 | 66.17 | OK | |
| r-release-linux-x86_64 | 3.2.1 | 5.72 | 60.77 | 66.49 | OK | |
| r-release-macos-arm64 | 3.2.1 | 41.00 | OK | |||
| r-release-macos-x86_64 | 3.2.1 | 71.00 | OK | |||
| r-release-windows-x86_64 | 3.2.1 | 8.00 | 82.00 | 90.00 | OK | |
| r-oldrel-macos-arm64 | 3.2.1 | 39.00 | OK | |||
| r-oldrel-macos-x86_64 | 3.2.1 | 98.00 | OK | |||
| r-oldrel-windows-x86_64 | 3.2.1 | 12.00 | 98.00 | 110.00 | OK |
Version: 3.2.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [4s/5s]
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 '/home/hornik/.Renviron' cannot be opened for reading
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 3.2.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [12s/15s]
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
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 3.2.1
Check: tests
Result: ERROR
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
Flavor: r-devel-linux-x86_64-fedora-gcc