Running 'testthat.R' [171s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(crosstalk)
  > 
  > test_check("crosstalk")
  
  ClntVl> library(shiny)
  
  ClntVl> server <- function(input, output, session) {
  ClntVl+   cv <- ClientValue$new("var1", "group1")
  ClntVl+ 
  ClntVl+   r <- reactive({
  ClntVl+     # Don't proceed unless cv$get() is a non-NULL value
  ClntVl+     validate(need(cv$get(), message = FALSE))
  ClntVl+ 
  ClntVl+     runif(cv$get())
  ClntVl+   })
  ClntVl+ 
  ClntVl+   observeEvent(input$click, {
  ClntVl+     cv$sendUpdate(NULL)
  ClntVl+   })
  ClntVl+ }
  
  bscols> ## No test: 
  bscols> ##D library(htmltools)
  bscols> ##D 
  bscols> ##D # If width is unspecified, equal widths will be used
  bscols> ##D bscols(
  bscols> ##D   div(style = css(width="100%", height="400px", background_color="red")),
  bscols> ##D   div(style = css(width="100%", height="400px", background_color="blue"))
  bscols> ##D )
  bscols> ##D 
  bscols> ##D # Use NA to absorb remaining width
  bscols> ##D bscols(widths = c(2, NA, NA),
  bscols> ##D   div(style = css(width="100%", height="400px", background_color="red")),
  bscols> ##D   div(style = css(width="100%", height="400px", background_color="blue")),
  bscols> ##D   div(style = css(width="100%", height="400px", background_color="green"))
  bscols> ##D )
  bscols> ##D 
  bscols> ##D # Recycling widths
  bscols> ##D bscols(widths = c(2, 4),
  bscols> ##D   div(style = css(width="100%", height="400px", background_color="red")),
  bscols> ##D   div(style = css(width="100%", height="400px", background_color="blue")),
  bscols> ##D   div(style = css(width="100%", height="400px", background_color="red")),
  bscols> ##D   div(style = css(width="100%", height="400px", background_color="blue"))
  bscols> ##D )
  bscols> ## End(No test)
  bscols> 
  bscols> 
  bscols> 
  
  fltr_s> ## Only run examples in interactive R sessions
  fltr_s> if (interactive()) {
  fltr_s+ 
  fltr_s+ sd <- SharedData$new(chickwts)
  fltr_s+ filter_select("feedtype", "Feed type", sd, "feed")
  fltr_s+ 
  fltr_s+ }
  
  fltr_s> ## Only run examples in interactive R sessions
  fltr_s> if (interactive()) {
  fltr_s+ 
  fltr_s+ sd <- SharedData$new(mtcars)
  fltr_s+ filter_slider("mpg", "Miles per gallon", sd, "mpg")
  fltr_s+ 
  fltr_s+ }
  
  scl_f_> ## Not run: 
  scl_f_> ##D sd <- SharedData$new(iris)
  scl_f_> ##D renderPlot({
  scl_f_> ##D   df <- sd$data(withSelection = TRUE, withFilter = TRUE)
  scl_f_> ##D   ggplot(df, aes(Sepal.Length, Sepal.Width,
  scl_f_> ##D     color = selection_factor(df))) +
  scl_f_> ##D     geom_point() +
  scl_f_> ##D     scale_color_selection("#444444", "skyblue1")
  scl_f_> ##D })
  scl_f_> ##D 
  scl_f_> ## End(Not run)
  scl_f_> 
  scl_f_> 
  scl_f_> 
  [ FAIL 0 | WARN 0 | SKIP 0 | PASS 22 ]
  > 
  > proc.time()
     user  system elapsed 
     1.57    0.15    1.68