Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(bsplus)
  > 
  > test_check("bsplus")
  ── 1. Error: (unknown) (@test-accordion.R#5)  ──────────────────────────────────
  no applicable method for 'bs_attr' applied to an object of class "logical"
  1: bs_accordion(id = "test") at testthat/test-accordion.R:5
  2: bs_set_aria(div, multiselectable = TRUE)
  3: bs_set_attr(tag, .prefix = "aria", ...)
  4: do.call(bs_map_attr, c(list(.prefix = .prefix), attributes_raw))
  5: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(.prefix = "aria", multiselectable = TRUE)
  6: purrr::map(x, bs_attr)
  7: .f(.x[[i]], ...)
  8: .f(.x[[i]], ...)
  
  ── 2. Error: (unknown) (@test-accordion_sidebar.R#6)  ──────────────────────────
  no applicable method for 'bs_attr' applied to an object of class "logical"
  1: bs_accordion_sidebar(id = "test") at testthat/test-accordion_sidebar.R:6
  2: htmltools::tagAppendChild(col_side, bs_accordion(.id(id, "side", "accordion")))
  3: bs_accordion(.id(id, "side", "accordion"))
  4: bs_set_aria(div, multiselectable = TRUE)
  5: bs_set_attr(tag, .prefix = "aria", ...)
  6: do.call(bs_map_attr, c(list(.prefix = .prefix), attributes_raw))
  7: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(.prefix = "aria", multiselectable = TRUE)
  8: purrr::map(x, bs_attr)
  9: .f(.x[[i]], ...)
  10: .f(.x[[i]], ...)
  
  ── 3. Error: (unknown) (@test-carousel.R#34)  ──────────────────────────────────
  no applicable method for 'bs_attr' applied to an object of class "character"
  1: bs_carousel("foo", use_indicators = TRUE) %>% bs_append("bar") at testthat/test-carousel.R:34
  2: eval(lhs, parent, parent)
  3: eval(lhs, parent, parent)
  4: bs_carousel("foo", use_indicators = TRUE)
  5: htmltools::tags$div(id = id, class = "carousel slide") %>% bs_set_data(ride = "carousel")
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  11: withVisible(function_list[[k]](value))
  12: function_list[[k]](value)
  13: bs_set_data(., ride = "carousel")
  14: bs_set_attr(tag, .prefix = "data", ...)
  15: do.call(bs_map_attr, c(list(.prefix = .prefix), attributes_raw))
  16: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(.prefix = "data", ride = "carousel")
  17: purrr::map(x, bs_attr)
  18: .f(.x[[i]], ...)
  19: .f(.x[[i]], ...)
  
  ── 4. Error: (unknown) (@test-collapse.R#15)  ──────────────────────────────────
  no applicable method for 'bs_attr' applied to an object of class "character"
  1: bs_attach_collapse(test_button, id_collapse = "foo") at testthat/test-collapse.R:15
  2: bs_set_data(tag, toggle = "collapse")
  3: bs_set_attr(tag, .prefix = "data", ...)
  4: do.call(bs_map_attr, c(list(.prefix = .prefix), attributes_raw))
  5: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(.prefix = "data", toggle = "collapse")
  6: purrr::map(x, bs_attr)
  7: .f(.x[[i]], ...)
  8: .f(.x[[i]], ...)
  
  ── 5. Error: (unknown) (@test-modal.R#6)  ──────────────────────────────────────
  no applicable method for 'bs_attr' applied to an object of class "character"
  1: bs_modal_closebutton(title = "foo") at testthat/test-modal.R:6
  2: htmltools::tags$button(type = "button", class = "btn btn-default", title) %>% bs_set_data(dismiss = "modal")
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: bs_set_data(., dismiss = "modal")
  11: bs_set_attr(tag, .prefix = "data", ...)
  12: do.call(bs_map_attr, c(list(.prefix = .prefix), attributes_raw))
  13: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(.prefix = "data", dismiss = "modal")
  14: purrr::map(x, bs_attr)
  15: .f(.x[[i]], ...)
  16: .f(.x[[i]], ...)
  
  ── 6. Error: logicals change correctly (@test-set_bs_attr.R#13)  ───────────────
  no applicable method for 'bs_attr' applied to an object of class "logical"
  1: expect_equal(do.call(bs_map_attr, opt_logical), res_logical) at testthat/test-set_bs_attr.R:13
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: do.call(bs_map_attr, opt_logical)
  5: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(logical_a = TRUE, logical_b = FALSE)
  6: purrr::map(x, bs_attr)
  7: .f(.x[[i]], ...)
  8: .f(.x[[i]], ...)
  
  ── 7. Error: characters change correctly (@test-set_bs_attr.R#21)  ─────────────
  no applicable method for 'bs_attr' applied to an object of class "character"
  1: expect_equal(do.call(bs_map_attr, opt_char), res_char) at testthat/test-set_bs_attr.R:21
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: do.call(bs_map_attr, opt_char)
  5: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(char_a = "a", char_b = c("left", "right"))
  6: purrr::map(x, bs_attr)
  7: .f(.x[[i]], ...)
  8: .f(.x[[i]], ...)
  
  ── 8. Error: numerics change correctly (@test-set_bs_attr.R#29)  ───────────────
  no applicable method for 'bs_attr' applied to an object of class "c('double', 'numeric')"
  1: expect_equal(do.call(bs_map_attr, opt_num), res_num) at testthat/test-set_bs_attr.R:29
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: do.call(bs_map_attr, opt_num)
  5: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(num_a = 1, num_b = c(1, 2, 3))
  6: purrr::map(x, bs_attr)
  7: .f(.x[[i]], ...)
  8: .f(.x[[i]], ...)
  
  ── 9. Error: all change correctly (@test-set_bs_attr.R#45)  ────────────────────
  no applicable method for 'bs_attr' applied to an object of class "logical"
  1: expect_equal(do.call(bs_map_attr, opt_all), res_all) at testthat/test-set_bs_attr.R:45
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: do.call(bs_map_attr, opt_all)
  5: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(logical_a = TRUE, logical_b = FALSE, char_a = "a", char_b = c("left", "right"), 
         num_a = 1, num_b = c(1, 2, 3), dur_a = new("Duration", .Data = 2), dur_b = new("Duration", 
             .Data = c(2, 3)))
  6: purrr::map(x, bs_attr)
  7: .f(.x[[i]], ...)
  8: .f(.x[[i]], ...)
  
  ── 10. Error: public functions work (@test-set_bs_attr.R#74)  ──────────────────
  no applicable method for 'bs_attr' applied to an object of class "character"
  1: expect_identical(do.call(bs_set_data, c(list(tag = data_in), att)), data_out) at testthat/test-set_bs_attr.R:74
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: do.call(bs_set_data, c(list(tag = data_in), att))
  5: (function (tag, ...) 
     {
         bs_set_attr(tag, .prefix = "data", ...)
     })(tag = structure(list(name = "div", attribs = list(`data-char` = "should_be_replaced"), 
         children = list()), class = "shiny.tag"), char = "char1", vec = c("char1", "char2", 
     "char3"), num = 7, dur = new("Duration", .Data = 3600))
  6: bs_set_attr(tag, .prefix = "data", ...)
  7: do.call(bs_map_attr, c(list(.prefix = .prefix), attributes_raw))
  8: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(.prefix = "data", char = "char1", vec = c("char1", "char2", "char3"), num = 7, 
         dur = new("Duration", .Data = 3600))
  9: purrr::map(x, bs_attr)
  10: .f(.x[[i]], ...)
  11: .f(.x[[i]], ...)
  
  ── 11. Error: (unknown) (@test-tooltip_popover.R#9)  ───────────────────────────
  no applicable method for 'bs_attr' applied to an object of class "character"
  1: button %>% bs_embed_tooltip(title = "tooltip") at testthat/test-tooltip_popover.R:9
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: bs_embed_tooltip(., title = "tooltip")
  10: tag %>% .tag_validate() %>% htmltools::tagAppendAttributes(title = title) %>% bs_set_data(toggle = "tooltip", 
         placement = placement, ...)
  ...
  15: freduce(value, `_function_list`)
  16: withVisible(function_list[[k]](value))
  17: function_list[[k]](value)
  18: bs_set_data(., toggle = "tooltip", placement = placement, ...)
  19: bs_set_attr(tag, .prefix = "data", ...)
  20: do.call(bs_map_attr, c(list(.prefix = .prefix), attributes_raw))
  21: (function (.prefix = "data", ...) 
     {
         x <- list(...)
         names(x) <- purrr::map_chr(names(x), ~paste(.prefix, .x, sep = "-"))
         x <- purrr::map(x, bs_attr)
         x
     })(.prefix = "data", toggle = "tooltip", placement = "top")
  22: purrr::map(x, bs_attr)
  23: .f(.x[[i]], ...)
  24: .f(.x[[i]], ...)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 25 SKIPPED: 0 FAILED: 11
  1. Error: (unknown) (@test-accordion.R#5) 
  2. Error: (unknown) (@test-accordion_sidebar.R#6) 
  3. Error: (unknown) (@test-carousel.R#34) 
  4. Error: (unknown) (@test-collapse.R#15) 
  5. Error: (unknown) (@test-modal.R#6) 
  6. Error: logicals change correctly (@test-set_bs_attr.R#13) 
  7. Error: characters change correctly (@test-set_bs_attr.R#21) 
  8. Error: numerics change correctly (@test-set_bs_attr.R#29) 
  9. Error: all change correctly (@test-set_bs_attr.R#45) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted