Running ‘testthat.R’ [13s/23s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(sugrrants)
  Loading required package: ggplot2
  > 
  > test_check("sugrrants")
  [ FAIL 3 | WARN 28 | SKIP 0 | PASS 34 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-calendar.R:17:3'): Multiple y's and NA's ───────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dat_na %>% ... at test-calendar.R:17:2
    2. ├─sugrrants::frame_calendar(., x = x, y = vars(ymin, ymax), date = Date)
    3. ├─sugrrants:::frame_calendar.default(...)
    4. │ └─... %>% dplyr::mutate(!!.date := PANEL)
    5. ├─dplyr::mutate(., `:=`(!!.date, PANEL))
    6. ├─dplyr::right_join(., data, by = c(PANEL = quo_name(date)))
    7. └─dplyr:::right_join.data.frame(., data, by = c(PANEL = quo_name(date)))
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.           ├─base::withCallingHandlers(...)
   14.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-calendar.R:87:3'): The argument calendar ───────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─sugrrants::frame_calendar(...) at test-calendar.R:87:2
    2. ├─sugrrants:::frame_calendar.default(...)
    3. │ └─... %>% dplyr::mutate(!!.date := PANEL)
    4. ├─dplyr::mutate(., `:=`(!!.date, PANEL))
    5. ├─dplyr::right_join(., data, by = c(PANEL = quo_name(date)))
    6. └─dplyr:::right_join.data.frame(., data, by = c(PANEL = quo_name(date)))
    7.   └─dplyr:::join_mutate(...)
    8.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.           ├─base::withCallingHandlers(...)
   13.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-calendar.R:173:3'): The arguments nrow & ncol ──────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_message(...) at test-calendar.R:173:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_messages)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─sugrrants::frame_calendar(...)
    7. ├─sugrrants:::frame_calendar.default(...)
    8. │ └─... %>% dplyr::mutate(!!.date := PANEL)
    9. ├─dplyr::mutate(., `:=`(!!.date, PANEL))
   10. ├─dplyr::right_join(., data, by = c(PANEL = quo_name(date)))
   11. └─dplyr:::right_join.data.frame(., data, by = c(PANEL = quo_name(date)))
   12.   └─dplyr:::join_mutate(...)
   13.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 3 | WARN 28 | SKIP 0 | PASS 34 ]
  Error: Test failures
  Execution halted