Running 'testthat.R' [23s/24s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library("testthat")
  > library("pixiedust")
  Additional documentation is being constructed at https://suchanutter.net/pixiedust/index.html
  > 
  > test_check("pixiedust")
  == Skipped tests ===============================================================
  * On CRAN (120)
  
  == Warnings ====================================================================
  -- Warning (test-perform_function.R:6:3): Apply a calculation ------------------
  cannot xtfrm data frames
  Backtrace:
    1. `%>%`(...) test-perform_function.R:6:2
    3. pixiedust:::sprinkle.default(...)
    4. pixiedust:::index_to_sprinkle(...)
    7. base::order(indices[recycle_arrange])
    8. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
    9. base:::FUN(X[[i]], ...)
   12. base::xtfrm.default(x)
  -- Warning (test-perform_function.R:18:3): Apply a string manipulation ---------
  cannot xtfrm data frames
  Backtrace:
    1. `%>%`(...) test-perform_function.R:18:2
    3. pixiedust:::sprinkle.default(...)
    4. pixiedust:::index_to_sprinkle(...)
    7. base::order(indices[recycle_arrange])
    8. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
    9. base:::FUN(X[[i]], ...)
   12. base::xtfrm.default(x)
  -- Warning (test-print.dust.R:14:3): printing to console succeeds with sprinkles --
  cannot xtfrm data frames
  Backtrace:
    1. `%>%`(...) test-print.dust.R:14:2
    3. pixiedust:::sprinkle.default(...)
    4. pixiedust:::index_to_sprinkle(...)
    7. base::order(indices[recycle_arrange])
    8. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
    9. base:::FUN(X[[i]], ...)
   12. base::xtfrm.default(x)
  -- Warning (test-print.dust.R:46:3): printing to console succeeds with sprinkles --
  cannot xtfrm data frames
  Backtrace:
    1. `%>%`(...) test-print.dust.R:46:2
    4. pixiedust:::sprinkle.default(...)
    5. pixiedust:::index_to_sprinkle(...)
    8. base::order(indices[recycle_arrange])
    9. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   10. base:::FUN(X[[i]], ...)
   13. base::xtfrm.default(x)
  -- Warning (test-print.dust.R:79:3): printing to console succeeds with sprinkles --
  cannot xtfrm data frames
  Backtrace:
    1. `%>%`(...) test-print.dust.R:79:2
    4. pixiedust:::sprinkle.default(...)
    5. pixiedust:::index_to_sprinkle(...)
    8. base::order(indices[recycle_arrange])
    9. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   10. base:::FUN(X[[i]], ...)
   13. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:12:5): Correctly reassigns the appropriate elements of the halign column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_align.R:12:4
    5. pixiedust:::sprinkle_align.default(x, rows = 1, halign = "left")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:24:5): Correctly reassigns the appropriate elements of the halign column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_align.R:24:4
    5. pixiedust:::sprinkle_align.default(x, rows = 2, cols = 4:5, halign = "center")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:49:5): Correctly reassigns the appropriate elements of the valign column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_align.R:49:4
    5. pixiedust:::sprinkle_align.default(x, rows = 1, valign = "top")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:61:5): Correctly reassigns the appropriate elements of the valign column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_align.R:61:4
    5. pixiedust:::sprinkle_align.default(x, rows = 2, cols = 4:5, valign = "middle")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:84:5): Correctly skips reassignment when valign = halign = NULL --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_align.R:84:4
    5. pixiedust:::sprinkle_align.default(x, valign = NULL, halign = NULL)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:116:5): Casts an error if halign is not a character --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_align(x, halign = c(1:2))) test-sprinkle_align.R:116:4
    7. pixiedust:::sprinkle_align.default(x, halign = c(1:2))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:159:5): Casts an error if valign is not a character --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_align(x, valign = c(1:2))) test-sprinkle_align.R:159:4
    7. pixiedust:::sprinkle_align.default(x, valign = c(1:2))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:168:5): Cast an error if recycle = 'none' and halign does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_align.R:168:4
    8. pixiedust:::sprinkle_align.default(x, halign = c("left", "right"))
    9. pixiedust:::index_to_sprinkle(...)
   12. base::order(indices[recycle_arrange])
   13. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   14. base:::FUN(X[[i]], ...)
   17. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:189:5): Cast an error if recycle = 'none' and halign does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_align.R:189:4
    8. pixiedust:::sprinkle_align.default(x, valign = c("bottom", "top"))
    9. pixiedust:::index_to_sprinkle(...)
   12. base::order(indices[recycle_arrange])
   13. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   14. base:::FUN(X[[i]], ...)
   17. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:210:5): Cast an error if halign is not one of c('left', 'center', 'right') --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_align(x, halign = "something")) test-sprinkle_align.R:210:4
    7. pixiedust:::sprinkle_align.default(x, halign = "something")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_align.R:221:5): Cast an error if valign is not one of c('bottom', 'middle', 'top') --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_align(x, valign = "something")) test-sprinkle_align.R:221:4
    7. pixiedust:::sprinkle_align.default(x, valign = "something")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_bg.R:12:5): Correctly reassigns the appropriate elements bg column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_bg.R:12:4
    5. pixiedust:::sprinkle_bg.default(x, rows = 1, bg = "red")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_bg.R:24:5): Correctly reassigns the appropriate elements bg column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_bg.R:24:4
    5. pixiedust:::sprinkle_bg.default(x, rows = 2, cols = 4:5, bg = "blue")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_bg.R:69:5): Casts an error if bg is not a character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_bg(x, bg = c("red", "blue"))) test-sprinkle_bg.R:69:4
    7. pixiedust:::sprinkle_bg.default(x, bg = c("red", "blue"))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_bg.R:78:5): Casts an error if bg is not a valid color format. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_bg(x, bg = "rgb(256, 256, 256)")) test-sprinkle_bg.R:78:4
    7. pixiedust:::sprinkle_bg.default(x, bg = "rgb(256, 256, 256)")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_bg.R:85:5): Casts an error if bg is not a valid color format. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_bg(x, bg = "#ZZFFAA0A")) test-sprinkle_bg.R:85:4
    7. pixiedust:::sprinkle_bg.default(x, bg = "#ZZFFAA0A")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_bg.R:126:5): Casts an error if recycle = 'none' and bg does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_bg.R:126:4
    7. pixiedust:::sprinkle_bg.default(x, bg = c("red", "blue"), recycle = "none")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_bg_pattern.R:11:5): Correctly reassigns the appropriate elements of the `bg` columns 
     in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_bg_pattern.R:11:4
    5. pixiedust:::sprinkle_bg_pattern.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_bg_pattern.R:23:5): Correctly reassigns the appropriate elements of the `bg` columns 
     in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_bg_pattern.R:23:4
    5. pixiedust:::sprinkle_bg_pattern.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_bg_pattern.R:36:5): Correctly reassigns the appropriate elements of the `bg` columns 
    in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_bg_pattern.R:36:4
    5. pixiedust:::sprinkle_bg_pattern.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:11:5): Correctly reassigns the left_border, right_border, top_border, and 
     bottom_border columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_border.R:11:4
    5. pixiedust:::sprinkle_border.default(x, border = "all", border_color = "green")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:27:5): Correctly reassigns the left_border, right_border, top_border, and 
     bottom_border columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_border.R:27:4
    5. pixiedust:::sprinkle_border.default(x, border = "bottom", color = "black")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:38:5): Correctly reassigns the left_border, right_border, top_border, and 
     bottom_border columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_border.R:38:4
    5. pixiedust:::sprinkle_border.default(x, border = "left", color = "black")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:49:5): Correctly reassigns the left_border, right_border, top_border, and 
     bottom_border columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_border.R:49:4
    5. pixiedust:::sprinkle_border.default(x, border = "top", color = "black")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:60:5): Correctly reassigns the left_border, right_border, top_border, and 
     bottom_border columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_border.R:60:4
    5. pixiedust:::sprinkle_border.default(x, border = "right", color = "black")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:95:5): Cast an error if any element of border is not one of all, bottom, 
     left, top, or right --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_border(x, border = "middle")) test-sprinkle_border.R:95:4
    7. pixiedust:::sprinkle_border.default(x, border = "middle")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:106:5): Cast an error if border_color is not a character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_border(x, border_color = 13)) test-sprinkle_border.R:106:4
    7. pixiedust:::sprinkle_border.default(x, border_color = 13)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:115:5): Cast an error if border_color is not a character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_border.R:115:4
    7. pixiedust:::sprinkle_border.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:126:5): Cast an error if border_color is not a valid color format --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_border(x, border_color = "not_a_color")) test-sprinkle_border.R:126:4
    7. pixiedust:::sprinkle_border.default(x, border_color = "not_a_color")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:138:5): Cast an error if border_style is not one of solid, dashed, dotted,
    double groove, ridge, inset, outset, hidden, none --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_border(x, border_style = "not_a_style")) test-sprinkle_border.R:138:4
    7. pixiedust:::sprinkle_border.default(x, border_style = "not_a_style")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:250:5): Cast an error if border_thickness is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_border(x, border_thickness = "one")) test-sprinkle_border.R:250:4
    7. pixiedust:::sprinkle_border.default(x, border_thickness = "one")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:259:5): Cast an error if border_thickness is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_border.R:259:4
    7. pixiedust:::sprinkle_border.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:270:5): Cast an error if border_units is not one of pt or px --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_border(x, border_units = "in")) test-sprinkle_border.R:270:4
    7. pixiedust:::sprinkle_border.default(x, border_units = "in")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:303:5): Casts an error if recycle = 'none' and border_color does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_border.R:303:4
    7. pixiedust:::sprinkle_border.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:319:5): Casts an error if recycle = 'none' and border_style does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_border.R:319:4
    7. pixiedust:::sprinkle_border.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_border.R:335:5): Casts an error if recycle = 'none' and border_thickness does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_border.R:335:4
    7. pixiedust:::sprinkle_border.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_discrete.R:10:5): Correctly reassigns `bg` -----------
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_discrete.R:10:4
    5. pixiedust:::sprinkle_discrete.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_discrete.R:24:5): Correctly reassigns `font_color` ---
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_discrete.R:24:4
    5. pixiedust:::sprinkle_discrete.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_discrete.R:38:5): Correctly reassigns `font_color` ---
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_discrete.R:38:4
    5. pixiedust:::sprinkle_discrete.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_discrete.R:61:5): Correctly reassigns `border` -------
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_discrete.R:61:4
    5. pixiedust:::sprinkle_discrete.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_discrete.R:75:5): Correctly reassigns `border` -------
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_discrete.R:75:4
    5. pixiedust:::sprinkle_discrete.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_discrete.R:148:5): Cast an error if discrete_color has too few values --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_discrete.R:148:4
    7. pixiedust:::sprinkle_discrete.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_fn.R:10:5): Correctly reassigns the appropriate elements of the fn column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_fn.R:10:4
    5. pixiedust:::sprinkle_fn.default(x, rows = 1, fn = quote(identity(value)))
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_fn.R:22:5): Correctly reassigns the appropriate elements bg column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_fn.R:22:4
    5. pixiedust:::sprinkle_fn.default(x, rows = 2, cols = 4:5, fn = quote(identity(value)))
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_fn.R:67:5): Casts an error if bg is not a call object --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_fn(x, fn = mtcars)) test-sprinkle_fn.R:67:4
    7. pixiedust:::sprinkle_fn.default(x, fn = mtcars)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:10:5): Correctly change the bold column of the table part for the selected cells --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_font.R:10:4
    5. pixiedust:::sprinkle_font.default(x = x, bold = TRUE)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:36:5): Correctly change the italic column of the table part for the selected cells --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_font.R:36:4
    5. pixiedust:::sprinkle_font.default(x = x, italic = TRUE)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:49:5): Correctly change the font_size column of the table part for the selected cells --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_font.R:49:4
    5. pixiedust:::sprinkle_font.default(x = x, font_size = 10)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:62:5): Correctly change the font_size_units column of the table part for the selected cells --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_font.R:62:4
    5. pixiedust:::sprinkle_font.default(x = x, font_size_units = "em")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:75:5): Correctly change the font_color column of the table part for the selected cells --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_font.R:75:4
    5. pixiedust:::sprinkle_font.default(x = x, font_color = "blue")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:88:5): Correctly change the font_family column of the table part for the selected cells --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_font.R:88:4
    5. pixiedust:::sprinkle_font.default(x = x, font_family = "Courier New")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:112:5): Cast an error if bold is not logical(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_font(x = x, bold = "TRUE")) test-sprinkle_font.R:112:4
    7. pixiedust:::sprinkle_font.default(x = x, bold = "TRUE")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:122:5): Cast an error if bold is not logical(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_font(x = x, bold = c(TRUE, FALSE))) test-sprinkle_font.R:122:4
    7. pixiedust:::sprinkle_font.default(x = x, bold = c(TRUE, FALSE))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:134:5): Cast an error if italic is not logical(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_font(x = x, italic = "TRUE")) test-sprinkle_font.R:134:4
    7. pixiedust:::sprinkle_font.default(x = x, italic = "TRUE")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:144:5): Cast an error if italic is not logical(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:144:4
    7. pixiedust:::sprinkle_font.default(x = x, italic = c(TRUE, FALSE))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:156:5): Cast an error if font_size is not numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_font(x = x, font_size = "3")) test-sprinkle_font.R:156:4
    7. pixiedust:::sprinkle_font.default(x = x, font_size = "3")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:166:5): Cast an error if font_size_units is not numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:166:4
    7. pixiedust:::sprinkle_font.default(x = x, font_size = c(3, 4))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:178:5): Cast an error if font_size_units is not character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_font(x = x, font_size_units = TRUE)) test-sprinkle_font.R:178:4
    7. pixiedust:::sprinkle_font.default(x = x, font_size_units = TRUE)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:188:5): Cast an error if font_size_units is not character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:188:4
    7. pixiedust:::sprinkle_font.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:200:5): Cast an error if font_size_units is not one of px, pt, em, % --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_font(x = x, font_size_units = "in")) test-sprinkle_font.R:200:4
    7. pixiedust:::sprinkle_font.default(x = x, font_size_units = "in")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:212:5): Cast an error if font_color is not character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_font(x = x, font_color = TRUE)) test-sprinkle_font.R:212:4
    7. pixiedust:::sprinkle_font.default(x = x, font_color = TRUE)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:222:5): Cast an error if font_color is not character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:222:4
    7. pixiedust:::sprinkle_font.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:234:5): Cast an error if any value in font_color is not a valid color --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_font(x = x, font_color = "not a color")) test-sprinkle_font.R:234:4
    7. pixiedust:::sprinkle_font.default(x = x, font_color = "not a color")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:246:5): Cast an error if font_family is not character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_font(x = x, font_family = TRUE)) test-sprinkle_font.R:246:4
    7. pixiedust:::sprinkle_font.default(x = x, font_family = TRUE)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:256:5): Cast an error if font_family is not character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:256:4
    7. pixiedust:::sprinkle_font.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:280:5): Casts an error if recycle = 'none' and bold does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:280:4
    7. pixiedust:::sprinkle_font.default(x, bold = c(TRUE, FALSE), recycle = "none")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:296:5): Casts an error if recycle = 'none' and italic does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:296:4
    7. pixiedust:::sprinkle_font.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:312:5): Casts an error if recycle = 'none' and font_size does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:312:4
    7. pixiedust:::sprinkle_font.default(x, font_size = c(10, 12), recycle = "none")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:328:5): Casts an error if recycle = 'none' and font_size_units does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:328:4
    7. pixiedust:::sprinkle_font.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:344:5): Casts an error if recycle = 'none' and font_color does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:344:4
    7. pixiedust:::sprinkle_font.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_font.R:360:5): Casts an error if recycle = 'none' and font_family does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_font.R:360:4
    7. pixiedust:::sprinkle_font.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:20:5): Correctly reassigns the appropriate elements of the bg column --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:20:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "bg")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:34:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:34:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "border")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:47:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:47:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "border")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:60:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:60:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "border")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:73:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:73:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "border")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:86:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:86:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "bottom_border")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:99:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:99:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "left_border")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:112:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:112:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "top_border")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:125:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:125:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "right_border")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:138:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:138:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "font")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:151:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:151:4
    5. pixiedust:::sprinkle_gradient.default(x, cols = "mpg", gradient = "font_color")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:164:5): Correctly reassigns the appropriate elements of the border columns --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:164:4
    5. pixiedust:::sprinkle_gradient.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:178:5): Correctly reassigns the default color for gradient_na = NULL --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:178:4
    5. pixiedust:::sprinkle_gradient.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_gradient.R:191:5): Correctly reassigns the color for custom cut vector --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_gradient.R:191:4
    5. pixiedust:::sprinkle_gradient.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_height.R:11:5): Correctly reassigns the appropriate elements of height and
     height_units columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_height.R:11:4
    5. pixiedust:::sprinkle_height.default(x, cols = 2, height = 20)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_height.R:22:5): Correctly reassigns the appropriate elements of height and
     height_units columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_height.R:22:4
    5. pixiedust:::sprinkle_height.default(x, cols = 2, height_units = "%")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_height.R:54:5): Cast an error if height is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_height(x, height = "20")) test-sprinkle_height.R:54:4
    7. pixiedust:::sprinkle_height.default(x, height = "20")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_height.R:61:5): Cast an error if height is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_height(x, height = c(20, 40))) test-sprinkle_height.R:61:4
    7. pixiedust:::sprinkle_height.default(x, height = c(20, 40))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_height.R:70:5): Cast an error if height_units is not a character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_height(x, height_units = 20)) test-sprinkle_height.R:70:4
    7. pixiedust:::sprinkle_height.default(x, height_units = 20)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_height.R:77:5): Cast an error if height_units is not a character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_height(x, height = c("px", "pt"))) test-sprinkle_height.R:77:4
    7. pixiedust:::sprinkle_height.default(x, height = c("px", "pt"))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_height.R:122:5): Casts an error if recycle = 'none' and height does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_height.R:122:4
    7. pixiedust:::sprinkle_height.default(x, height = c(10, 15), recycle = "none")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_merge.R:13:5): Correctly reassigns the appropriate elements of merge, merge_rowval and 
     merge_colval columns in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_merge.R:13:4
    5. pixiedust:::sprinkle_merge.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_merge.R:24:5): Correctly reassigns the appropriate elements of merge, merge_rowval and 
     merge_colval columns in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_merge.R:24:4
    5. pixiedust:::sprinkle_merge.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_merge.R:36:5): Correctly reassigns the appropriate elements of merge, merge_rowval and 
     merge_colval columns in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_merge.R:36:4
    5. pixiedust:::sprinkle_merge.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_merge.R:60:5): Correctly skips merging when merge = FALSE --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_merge.R:60:4
    5. pixiedust:::sprinkle_merge.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_na_string.R:12:5): Correctly reassigns the appropriate elements of the na_string column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_na_string.R:12:4
    5. pixiedust:::sprinkle_na_string.default(x, rows = 1, na_string = "red")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_na_string.R:24:5): Correctly reassigns the appropriate elements bg column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_na_string.R:24:4
    5. pixiedust:::sprinkle_na_string.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_na_string.R:69:5): Casts an error if bg is not a character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_na_string.R:69:4
    7. pixiedust:::sprinkle_na_string.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_na_string.R:110:5): Casts an error if recycle = 'none' and na_string does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_na_string.R:110:4
    7. pixiedust:::sprinkle_na_string.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_pad.R:12:5): Correctly reassigns the appropriate elements pad column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_pad.R:12:4
    5. pixiedust:::sprinkle_pad.default(x, rows = 1, pad = 3)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_pad.R:24:5): Correctly reassigns the appropriate elements pad column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_pad.R:24:4
    5. pixiedust:::sprinkle_pad.default(x, rows = 2, cols = 4:5, pad = 2)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_pad.R:69:5): Casts an error if pad is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_pad(x, pad = 1:2)) test-sprinkle_pad.R:69:4
    7. pixiedust:::sprinkle_pad.default(x, pad = 1:2)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_pad.R:112:5): Casts an error if recycle = 'none' and pad does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_pad(x, pad = 1:3, recycle = "none")) test-sprinkle_pad.R:112:4
    7. pixiedust:::sprinkle_pad.default(x, pad = 1:3, recycle = "none")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_replace.R:12:5): Correctly reassigns the appropriate elements of the replace column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_replace.R:12:4
    5. pixiedust:::sprinkle_replace.default(x, rows = 1, replace = "red")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_replace.R:24:5): Correctly reassigns the appropriate elements bg column in the table part. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_replace.R:24:4
    5. pixiedust:::sprinkle_replace.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_replace.R:69:5): Casts an error if bg is not an atomic vector --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_replace(x, replace = mtcars)) test-sprinkle_replace.R:69:4
    7. pixiedust:::sprinkle_replace.default(x, replace = mtcars)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_replace.R:101:5): Casts an error if `length(replace)` is greater than the 
      number of cells to replace. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_replace.R:101:4
    7. pixiedust:::sprinkle_replace.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_rotate_degree.R:11:5): Correctly reassigns the appropriate elements of rotate_degree
     columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_rotate_degree.R:11:4
    5. pixiedust:::sprinkle_rotate_degree.default(x, cols = 2, rotate_degree = 3)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_rotate_degree.R:43:5): Cast an error if rotate_degree is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_rotate_degree(x, rotate_degree = "3")) test-sprinkle_rotate_degree.R:43:4
    7. pixiedust:::sprinkle_rotate_degree.default(x, rotate_degree = "3")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_rotate_degree.R:50:5): Cast an error if rotate_degree is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_rotate_degree.R:50:4
    7. pixiedust:::sprinkle_rotate_degree.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_rotate_degree.R:95:5): Casts an error if recycle = 'none' and rotate_degree does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(...) test-sprinkle_rotate_degree.R:95:4
    7. pixiedust:::sprinkle_rotate_degree.default(...)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_round.R:11:5): Correctly reassigns the appropriate elements of round
     columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_round.R:11:4
    5. pixiedust:::sprinkle_round.default(x, cols = 2, round = 3)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_round.R:43:5): Cast an error if round is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_round(x, round = "3")) test-sprinkle_round.R:43:4
    7. pixiedust:::sprinkle_round.default(x, round = "3")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_round.R:50:5): Cast an error if round is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_round(x, round = c(2, 3))) test-sprinkle_round.R:50:4
    7. pixiedust:::sprinkle_round.default(x, round = c(2, 3))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_round.R:95:5): Casts an error if recycle = 'none' and round does not have length 1. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_round(x, round = 1:2, recycle = "none")) test-sprinkle_round.R:95:4
    7. pixiedust:::sprinkle_round.default(x, round = 1:2, recycle = "none")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_sanitize.R:11:5): Correctly reassigns the appropriate elements of sanitize and
    sanitize_args columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_sanitize.R:11:4
    5. pixiedust:::sprinkle_sanitize.default(x, cols = 2, sanitize = TRUE)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_sanitize.R:22:5): Correctly reassigns the appropriate elements of sanitize and
    sanitize_units columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_sanitize.R:22:4
    5. pixiedust:::sprinkle_sanitize.default(x, cols = 2, sanitize_args = list(greek = TRUE))
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_width.R:11:5): Correctly reassigns the appropriate elements of width and
     width_units columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_width.R:11:4
    5. pixiedust:::sprinkle_width.default(x, cols = 2, width = 20)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_width.R:22:5): Correctly reassigns the appropriate elements of width and
     width_units columns in the table part --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_width.R:22:4
    5. pixiedust:::sprinkle_width.default(x, cols = 2, width_units = "%")
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_width.R:57:5): Cast an error if width is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_width(x, width = "20")) test-sprinkle_width.R:57:4
    7. pixiedust:::sprinkle_width.default(x, width = "20")
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_width.R:64:5): Cast an error if width is not a numeric(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_width(x, width = c(20, 40))) test-sprinkle_width.R:64:4
    7. pixiedust:::sprinkle_width.default(x, width = c(20, 40))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_width.R:73:5): Cast an error if width_units is not a character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_width(x, width_units = 20)) test-sprinkle_width.R:73:4
    7. pixiedust:::sprinkle_width.default(x, width_units = 20)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_width.R:80:5): Cast an error if width_units is not a character(1) --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_width(x, width = c("px", "pt"))) test-sprinkle_width.R:80:4
    7. pixiedust:::sprinkle_width.default(x, width = c("px", "pt"))
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_width.R:125:5): Casts an error if recycle = 'none' and width does not have length 1 --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_error(sprinkle_width(x, recycle = "none", width = 1:2)) test-sprinkle_width.R:125:4
    7. pixiedust:::sprinkle_width.default(x, recycle = "none", width = 1:2)
    8. pixiedust:::index_to_sprinkle(...)
   11. base::order(indices[recycle_arrange])
   12. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13. base:::FUN(X[[i]], ...)
   16. base::xtfrm.default(x)
  -- Warning (test-sprinkle_width.R:134:5): Correctly assigns values when recycle is not 'none' and multiple values are given. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_width.R:134:4
    5. pixiedust:::sprinkle_width.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_width.R:147:5): Correctly assigns values when recycle is not 'none' and multiple values are given. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_width.R:147:4
    5. pixiedust:::sprinkle_width.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  -- Warning (test-sprinkle_width.R:162:5): Quietly accepts only the first value in width_units when recycle = 'none'. --
  cannot xtfrm data frames
  Backtrace:
    1. testthat::expect_equal(...) test-sprinkle_width.R:162:4
    5. pixiedust:::sprinkle_width.default(...)
    6. pixiedust:::index_to_sprinkle(...)
    9. base::order(indices[recycle_arrange])
   10. base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11. base:::FUN(X[[i]], ...)
   14. base::xtfrm.default(x)
  
  == Failed tests ================================================================
  -- Failure (test-colors.R:8:5): lowercase color --------------------------------
  `sprinkle(x, bg = "red")` produced warnings.
  -- Failure (test-colors.R:15:5): uppercase color -------------------------------
  `sprinkle(x, bg = "RED")` produced warnings.
  -- Failure (test-colors.R:22:5): mixed-case color ------------------------------
  `sprinkle(x, bg = "ReD")` produced warnings.
  -- Failure (test-colors.R:29:5): rgb color -------------------------------------
  `sprinkle(x, bg = "rgb(255,0,0)")` produced warnings.
  -- Failure (test-colors.R:36:5): rgba color ------------------------------------
  `sprinkle(x, bg = "rgba(255,0,0,0)")` produced warnings.
  -- Failure (test-colors.R:43:5): rgba color decimal alpha ----------------------
  `sprinkle(x, bg = "rgba(255,0,0,.10)")` produced warnings.
  -- Failure (test-colors.R:50:5): rgba color decimal alpha preceded by 0 --------
  `sprinkle(x, bg = "rgba(255,0,0,0.10)")` produced warnings.
  -- Failure (test-colors.R:57:5): rgba color 1.0 alpha --------------------------
  `sprinkle(x, bg = "rgba(255,0,0,1.0)")` produced warnings.
  -- Failure (test-colors.R:64:5): hexidecimal color -----------------------------
  `sprinkle(x, bg = "#FF0000")` produced warnings.
  -- Failure (test-colors.R:71:5): hexidecimal color with transparency -----------
  `sprinkle(x, bg = "#FF0000F0")` produced warnings.
  -- Failure (test-colors.R:78:5): transparent color -----------------------------
  `sprinkle(x, bg = "transparent")` produced warnings.
  -- Failure (test-index_to_sprinkle.R:64:5): recycle = columns is correctly translated --
  `sprinkle_bg(...)` produced warnings.
  -- Failure (test-medley.R:7:3): medley_bw --------------------------------------
  `dust(fit) %>% medley_bw() %>% sprinkle_print_method("html")` produced warnings.
  -- Failure (test-medley.R:17:3): medley_model ----------------------------------
  `dust(fit, glance_foot = TRUE) %>% medley_model() %>% sprinkle_print_method("html")` produced warnings.
  -- Failure (test-medley_all_borders.R:7:3): medley_all_borders with defaults ---
  `dust(fit) %>% medley_all_borders()` produced warnings.
  -- Failure (test-medley_all_borders.R:15:3): medley_all_borders with horizontal = FALSE --
  `dust(fit) %>% medley_all_borders(rows = 2, cols = 3, horizontal = FALSE)` produced warnings.
  -- Failure (test-medley_all_borders.R:25:3): medley_all_borders with vertical = FALSE --
  ``%>%`(...)` produced warnings.
  -- Failure (test-medley_all_borders.R:37:5): medley_all_borders with part = 'table' --
  `dust(fit) %>% medley_all_borders(part = "table") %>% sprinkle_print_method("html")` produced warnings.
  -- Failure (test-pixieply.R:5:3): apply medley to dust_list --------------------
  `pixieply(...)` produced warnings.
  -- Failure (test-pixieply.R:19:5): apply unique captions to dust_list ----------
  `.` produced warnings.
  -- Failure (test-sprinkle_align.R:94:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_align.R:177:5): Passes if recycle != 'none' and halign does not have length 1. --
  `sprinkle_align(x, halign = c("left", "right"), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_align.R:198:5): Passes if recycle != 'none' and halign does not have length 1. --
  `sprinkle_align(x, valign = c("bottom", "top"), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_bg.R:47:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_bg.R:133:5): Passes when recycle != 'none' and bg does has length > 1. --
  `sprinkle_bg(x, bg = c("red", "blue"), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_bg_pattern.R:49:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_border.R:70:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_border.R:148:5): Accept solid, dashed, dotted, double, groove, ridge, inset, outset, hidden
     and none --
  `sprinkle_border(x, border_style = "solid")` produced warnings.
  -- Failure (test-sprinkle_border.R:158:5): Accept solid, dashed, dotted, double, groove, ridge, inset, outset, hidden
     and none --
  `sprinkle_border(x, border_style = "dashed")` produced warnings.
  -- Failure (test-sprinkle_border.R:168:5): Accept solid, dashed, dotted, double, groove, ridge, inset, outset, hidden
     and none --
  `sprinkle_border(x, border_style = "dotted")` produced warnings.
  -- Failure (test-sprinkle_border.R:179:5): Accept solid, dashed, dotted, double, groove, ridge, inset, outset, hidden
     and none --
  `sprinkle_border(x, border_style = "double")` produced warnings.
  -- Failure (test-sprinkle_border.R:189:5): Accept solid, dashed, dotted, double, groove, ridge, inset, outset, hidden
     and none --
  `sprinkle_border(x, border_style = "groove")` produced warnings.
  -- Failure (test-sprinkle_border.R:199:5): Accept solid, dashed, dotted, double, groove, ridge, inset, outset, hidden
     and none --
  `sprinkle_border(x, border_style = "ridge")` produced warnings.
  -- Failure (test-sprinkle_border.R:209:5): Accept solid, dashed, dotted, double, groove, ridge, inset, outset, hidden
     and none --
  `sprinkle_border(x, border_style = "inset")` produced warnings.
  -- Failure (test-sprinkle_border.R:219:5): Accept solid, dashed, dotted, double, groove, ridge, inset, outset, hidden
     and none --
  `sprinkle_border(x, border_style = "outset")` produced warnings.
  -- Failure (test-sprinkle_border.R:229:5): Accept solid, dashed, dotted, double, groove, ridge, inset, outset, hidden
     and none --
  `sprinkle_border(x, border_style = "hidden")` produced warnings.
  -- Failure (test-sprinkle_border.R:239:5): Accept solid, dashed, dotted, double, groove, ridge, inset, outset, hidden
     and none --
  `sprinkle_border(x, border_style = "none")` produced warnings.
  -- Failure (test-sprinkle_border.R:279:5): border_units accepts pt -------------
  `sprinkle_border(x, border_units = "pt")` produced warnings.
  -- Failure (test-sprinkle_border.R:288:5): border_units accepts px -------------
  `sprinkle_border(x, border_units = "px")` produced warnings.
  -- Failure (test-sprinkle_border.R:310:5): Passes when recycle != 'none' and border_color does has length > 1. --
  `sprinkle_border(x, border_color = c("red", "blue"), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_border.R:326:5): Passes when recycle != 'none' and border_color does has length > 1. --
  `sprinkle_border(x, border_style = c("dashed", "solid"), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_border.R:342:5): Passes when recycle != 'none' and border_thickness does has length > 1. --
  `sprinkle_border(x, border_thickness = c(1, 3), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_border.R:351:5): Quietly restrict border_units to just the first element if it has length > 1 and recycle = 'none' --
  `sprinkle_border(x, border_units = c("px", "pt"), recycle = "none")` produced warnings.
  -- Failure (test-sprinkle_discrete.R:52:5): Selects default colors when discrete_color is NULL --
  `sprinkle_discrete(x, cols = "gear", discrete = "bg")` produced warnings.
  -- Failure (test-sprinkle_discrete.R:89:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_dust_list.R:9:3): sprinkle_table on a dust_list ------
  `sprinkle_table(dlist, longtable = TRUE)` produced warnings.
  -- Failure (test-sprinkle_dust_list.R:30:3): sprinkle a dust_list --------------
  `sprinkle(dlist, rows = 3, cols = 2, italic = TRUE)` produced warnings.
  -- Failure (test-sprinkle_fn.R:45:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_font.R:21:5): Succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_font.R:287:5): Passes when recycle != 'none' and bold does has length > 1. --
  `sprinkle_font(x, bold = c(TRUE, FALSE), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_font.R:303:5): Passes when recycle != 'none' and italic does has length > 1. --
  `sprinkle_font(x, italic = c(TRUE, FALSE), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_font.R:319:5): Passes when recycle != 'none' and font_size does has length > 1. --
  `sprinkle_font(x, font_size = c(10, 12), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_font.R:335:5): Passes when recycle != 'none' and font_size_units does has length > 1. --
  `sprinkle_font(x, font_size_units = c("px", "pt"), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_font.R:351:5): Passes when recycle != 'none' and font_color does has length > 1. --
  `sprinkle_font(x, font_color = c("red", "blue"), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_font.R:367:5): Passes when recycle != 'none' and font_family does has length > 1. --
  `sprinkle_font(x, font_family = c("Roman", "Arial"), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_gradient.R:204:5): sprinkle_gradient succeeds on dust_list --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_height.R:32:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_height.R:129:5): Passes when recycle != 'none' and height has length > 1. --
  `sprinkle_height(x, height = c(10, 15), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_height.R:138:5): When recycle = 'none', quietly coerce height_units to just the first element given. --
  `sprinkle_height(x, height_units = c("px", "pt"))` produced warnings.
  -- Failure (test-sprinkle_merge.R:48:5): Works with a dust_list object ---------
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_na_string.R:47:5): Succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_na_string.R:117:5): Passes when recycle != 'none' and na_string does has length > 1. --
  `sprinkle_na_string(x, na_string = c("Roman", "Arial"), recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_pad.R:47:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_pad.R:119:5): Passes when recycle != 'none' and pad does has length > 1. --
  `sprinkle_pad(x, pad = 1:3, recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_replace.R:47:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_rotate_degree.R:21:5): Succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_rotate_degree.R:102:5): Passes when recycle != 'none' and rotate_degree does has length > 1. --
  `sprinkle_rotate_degree(x, rotate_degree = 1:3, recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_round.R:21:5): Succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_round.R:102:5): Passes when recycle != 'none' and round does has length > 1. --
  `sprinkle_round(x, round = 1:3, recycle = "rows")` produced warnings.
  -- Failure (test-sprinkle_sanitize.R:35:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  -- Failure (test-sprinkle_table.R:6:3): sprinkle_table: apply a sprinkle to all parts --
  `sprinkle_table(x, round = 2)` produced warnings.
  -- Failure (test-sprinkle_width.R:32:5): Function succeeds when called on a dust_list object --
  ``%>%`(...)` produced warnings.
  
  [ FAIL 72 | WARN 133 | SKIP 120 | PASS 441 ]
  Error: Test failures
  Execution halted