Running ‘testthat.R’ [11s/13s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(starschemar)
  > 
  > test_check("starschemar")
  [ FAIL 11 | WARN 1 | SKIP 0 | PASS 149 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-character_dimension.R:5'): character_dimension works ───────────
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. ├─starschemar:::character_dimension(...) at test-character_dimension.R:5:2
    2. └─starschemar:::character_dimension.dimension_table(...)
    3.   └─dplyr::summarise_all(dimension[, -1], class)
    4.     ├─dplyr::summarise(.tbl, !!!funs)
    5.     └─dplyr:::summarise.data.frame(.tbl, !!!funs)
    6.       └─dplyr:::compute_by(...)
    7.         └─dplyr:::eval_select_by(by, data, error_call = error_call)
    8.           └─tidyselect::eval_select(...)
    9.             └─tidyselect:::eval_select_impl(...)
   10.               └─vctrs::vec_assert(x)
   11.                 └─vctrs:::stop_scalar_type(x, arg, call = call)
   12.                   └─vctrs:::stop_vctrs(...)
   13.                     └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-character_dimensions.R:5'): character_dimensions works ─────────
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. ├─starschemar::character_dimensions(...) at test-character_dimensions.R:5:2
    2. └─starschemar:::character_dimensions.star_schema(...)
    3.   ├─starschemar:::character_dimension(...)
    4.   └─starschemar:::character_dimension.dimension_table(...)
    5.     └─dplyr::summarise_all(dimension[, -1], class)
    6.       ├─dplyr::summarise(.tbl, !!!funs)
    7.       └─dplyr:::summarise.data.frame(.tbl, !!!funs)
    8.         └─dplyr:::compute_by(...)
    9.           └─dplyr:::eval_select_by(by, data, error_call = error_call)
   10.             └─tidyselect::eval_select(...)
   11.               └─tidyselect:::eval_select_impl(...)
   12.                 └─vctrs::vec_assert(x)
   13.                   └─vctrs:::stop_scalar_type(x, arg, call = call)
   14.                     └─vctrs:::stop_vctrs(...)
   15.                       └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-constellation.R:4'): constellation works ───────────────────────
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. └─starschemar::constellation(...) at test-constellation.R:4:2
    2.   └─starschemar:::conform_all_dimensions(ct)
    3.     └─starschemar:::conform_dimensions(ct, name = d)
    4.       └─starschemar:::union_of_dimensions(dl, name = name, type = "conformed")
    5.         ├─base::unlist(dplyr::summarise_all(dimensions[[1]], class))
    6.         └─dplyr::summarise_all(dimensions[[1]], class)
    7.           ├─dplyr::summarise(.tbl, !!!funs)
    8.           └─dplyr:::summarise.data.frame(.tbl, !!!funs)
    9.             └─dplyr:::compute_by(...)
   10.               └─dplyr:::eval_select_by(by, data, error_call = error_call)
   11.                 └─tidyselect::eval_select(...)
   12.                   └─tidyselect:::eval_select_impl(...)
   13.                     └─vctrs::vec_assert(x)
   14.                       └─vctrs:::stop_scalar_type(x, arg, call = call)
   15.                         └─vctrs:::stop_vctrs(...)
   16.                           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-modify_conformed_dimension_records.R:4'): modify_conformed_dimension_records works ──
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. ├─starschemar::modify_conformed_dimension_records(...) at test-modify_conformed_dimension_records.R:4:2
    2. └─starschemar:::modify_conformed_dimension_records.constellation(...)
    3.   └─starschemar:::update_dimensions(ct$dimension, updates)
    4.     ├─starschemar:::update_dimension(dimensions[[d]], updates)
    5.     └─starschemar:::update_dimension.dimension_table(...)
    6.       └─dplyr::summarise_all(mod_dim, class)
    7.         ├─dplyr::summarise(.tbl, !!!funs)
    8.         └─dplyr:::summarise.data.frame(.tbl, !!!funs)
    9.           └─dplyr:::compute_by(...)
   10.             └─dplyr:::eval_select_by(by, data, error_call = error_call)
   11.               └─tidyselect::eval_select(...)
   12.                 └─tidyselect:::eval_select_impl(...)
   13.                   └─vctrs::vec_assert(x)
   14.                     └─vctrs:::stop_scalar_type(x, arg, call = call)
   15.                       └─vctrs:::stop_vctrs(...)
   16.                         └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-modify_dimension_records.R:4'): modify_dimension_records works ──
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. ├─starschemar::modify_dimension_records(st_mrs_age_test, updates_st_mrs_age_test) at test-modify_dimension_records.R:4:2
    2. └─starschemar:::modify_dimension_records.star_schema(...)
    3.   └─starschemar:::update_dimensions(dimensions, updates)
    4.     ├─starschemar:::update_dimension(dimensions[[d]], updates)
    5.     └─starschemar:::update_dimension.dimension_table(...)
    6.       └─dplyr::summarise_all(mod_dim, class)
    7.         ├─dplyr::summarise(.tbl, !!!funs)
    8.         └─dplyr:::summarise.data.frame(.tbl, !!!funs)
    9.           └─dplyr:::compute_by(...)
   10.             └─dplyr:::eval_select_by(by, data, error_call = error_call)
   11.               └─tidyselect::eval_select(...)
   12.                 └─tidyselect:::eval_select_impl(...)
   13.                   └─vctrs::vec_assert(x)
   14.                     └─vctrs:::stop_scalar_type(x, arg, call = call)
   15.                       └─vctrs:::stop_vctrs(...)
   16.                         └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-purge_dimensions_constellation.R:10'): purge_dimensions_constellation works ──
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. ├─... %>% purge_dimensions_constellation() at test-purge_dimensions_constellation.R:10:2
    2. ├─starschemar::purge_dimensions_constellation(.)
    3. └─starschemar:::purge_dimensions_constellation.constellation(.)
    4.   └─starschemar:::conform_all_dimensions(ct)
    5.     └─starschemar:::conform_dimensions(ct, name = d)
    6.       └─starschemar:::union_of_dimensions(dl, name = name, type = "conformed")
    7.         ├─base::unlist(dplyr::summarise_all(dimensions[[1]], class))
    8.         └─dplyr::summarise_all(dimensions[[1]], class)
    9.           ├─dplyr::summarise(.tbl, !!!funs)
   10.           └─dplyr:::summarise.data.frame(.tbl, !!!funs)
   11.             └─dplyr:::compute_by(...)
   12.               └─dplyr:::eval_select_by(by, data, error_call = error_call)
   13.                 └─tidyselect::eval_select(...)
   14.                   └─tidyselect:::eval_select_impl(...)
   15.                     └─vctrs::vec_assert(x)
   16.                       └─vctrs:::stop_scalar_type(x, arg, call = call)
   17.                         └─vctrs:::stop_vctrs(...)
   18.                           └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-role_playing_dimension.R:5'): role_playing_dimension works ─────
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. ├─starschemar::role_playing_dimension(...) at test-role_playing_dimension.R:5:2
    2. └─starschemar:::role_playing_dimension.star_schema(...)
    3.   └─starschemar:::union_of_dimensions(dl, name = name, type = "role_playing")
    4.     ├─base::unlist(dplyr::summarise_all(dimensions[[1]], class))
    5.     └─dplyr::summarise_all(dimensions[[1]], class)
    6.       ├─dplyr::summarise(.tbl, !!!funs)
    7.       └─dplyr:::summarise.data.frame(.tbl, !!!funs)
    8.         └─dplyr:::compute_by(...)
    9.           └─dplyr:::eval_select_by(by, data, error_call = error_call)
   10.             └─tidyselect::eval_select(...)
   11.               └─tidyselect:::eval_select_impl(...)
   12.                 └─vctrs::vec_assert(x)
   13.                   └─vctrs:::stop_scalar_type(x, arg, call = call)
   14.                     └─vctrs:::stop_vctrs(...)
   15.                       └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-union_of_dimensions.R:4'): union_of_dimensions works ───────────
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. └─starschemar:::union_of_dimensions(...) at test-union_of_dimensions.R:4:2
    2.   ├─base::unlist(dplyr::summarise_all(dimensions[[1]], class))
    3.   └─dplyr::summarise_all(dimensions[[1]], class)
    4.     ├─dplyr::summarise(.tbl, !!!funs)
    5.     └─dplyr:::summarise.data.frame(.tbl, !!!funs)
    6.       └─dplyr:::compute_by(...)
    7.         └─dplyr:::eval_select_by(by, data, error_call = error_call)
    8.           └─tidyselect::eval_select(...)
    9.             └─tidyselect:::eval_select_impl(...)
   10.               └─vctrs::vec_assert(x)
   11.                 └─vctrs:::stop_scalar_type(x, arg, call = call)
   12.                   └─vctrs:::stop_vctrs(...)
   13.                     └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-update_dimension.R:4'): update_dimension works ─────────────────
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. ├─starschemar:::update_dimension(...) at test-update_dimension.R:4:2
    2. └─starschemar:::update_dimension.dimension_table(...)
    3.   └─dplyr::summarise_all(mod_dim, class)
    4.     ├─dplyr::summarise(.tbl, !!!funs)
    5.     └─dplyr:::summarise.data.frame(.tbl, !!!funs)
    6.       └─dplyr:::compute_by(...)
    7.         └─dplyr:::eval_select_by(by, data, error_call = error_call)
    8.           └─tidyselect::eval_select(...)
    9.             └─tidyselect:::eval_select_impl(...)
   10.               └─vctrs::vec_assert(x)
   11.                 └─vctrs:::stop_scalar_type(x, arg, call = call)
   12.                   └─vctrs:::stop_vctrs(...)
   13.                     └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-update_dimensions.R:4'): update_dimensions works ───────────────
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. └─starschemar:::update_dimensions(ct_mrs_test$dimension, updates_st_mrs_age_test) at test-update_dimensions.R:4:2
    2.   ├─starschemar:::update_dimension(dimensions[[d]], updates)
    3.   └─starschemar:::update_dimension.dimension_table(...)
    4.     └─dplyr::summarise_all(mod_dim, class)
    5.       ├─dplyr::summarise(.tbl, !!!funs)
    6.       └─dplyr:::summarise.data.frame(.tbl, !!!funs)
    7.         └─dplyr:::compute_by(...)
    8.           └─dplyr:::eval_select_by(by, data, error_call = error_call)
    9.             └─tidyselect::eval_select(...)
   10.               └─tidyselect:::eval_select_impl(...)
   11.                 └─vctrs::vec_assert(x)
   12.                   └─vctrs:::stop_scalar_type(x, arg, call = call)
   13.                     └─vctrs:::stop_vctrs(...)
   14.                       └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-update_facts_with_dimensions.R:5'): update_facts_with_dimensions works ──
  <vctrs_error_scalar_type/vctrs_error/rlang_error/error/condition>
  Error in `eval_select_impl(data, names(data), as_quosure(expr, env), include = include, 
      exclude = exclude, strict = strict, name_spec = name_spec, 
      allow_rename = allow_rename, allow_empty = allow_empty, allow_predicates = allow_predicates, 
      error_call = error_call, )`: `x` must be a vector, not a <tbl_df/tbl/data.frame/dimension_table> object.
  Backtrace:
       ▆
    1. └─starschemar:::update_dimensions(dimensions, updates_st_mrs_age_test) at test-update_facts_with_dimensions.R:5:2
    2.   ├─starschemar:::update_dimension(dimensions[[d]], updates)
    3.   └─starschemar:::update_dimension.dimension_table(...)
    4.     └─dplyr::summarise_all(mod_dim, class)
    5.       ├─dplyr::summarise(.tbl, !!!funs)
    6.       └─dplyr:::summarise.data.frame(.tbl, !!!funs)
    7.         └─dplyr:::compute_by(...)
    8.           └─dplyr:::eval_select_by(by, data, error_call = error_call)
    9.             └─tidyselect::eval_select(...)
   10.               └─tidyselect:::eval_select_impl(...)
   11.                 └─vctrs::vec_assert(x)
   12.                   └─vctrs:::stop_scalar_type(x, arg, call = call)
   13.                     └─vctrs:::stop_vctrs(...)
   14.                       └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  
  [ FAIL 11 | WARN 1 | SKIP 0 | PASS 149 ]
  Error: Test failures
  Execution halted