Test case: widgets

Test case: widgets

See also

Other tests: test-dont, test-figures, test-links, test-lists, test-params

Examples

if (requireNamespace("htmltools", quietly = TRUE)) {
  htmlwidgets::setWidgetIdSeed(42)
}

library(leaflet)
leaflet() %>%
  addTiles() %>%
  addMarkers(
    lng=174.768,
    lat=-36.852,
    popup="The birthplace of R"
  )

library(heatmaply)

#> Loading required package: plotly

#> Loading required package: ggplot2

#> 
#> Attaching package: ‘plotly’

#> The following object is masked from ‘package:ggplot2’:
#> 
#>     last_plot

#> The following object is masked from ‘package:stats’:
#> 
#>     filter

#> The following object is masked from ‘package:graphics’:
#> 
#>     layout

#> Loading required package: viridis

#> Loading required package: viridisLite

#> 
#> ======================
#> Welcome to heatmaply version 0.15.0
#> 
#> Type citation('heatmaply') for how to cite the package.
#> Type ?heatmaply for the main documentation.
#> 
#> The github page is: https://github.com/talgalili/heatmaply/
#> Please submit your suggestions and bug-reports at: https://github.com/talgalili/heatmaply/issues
#> Or contact: <tal.galili@gmail.com>
#> ======================

heatmaply(mtcars, k_row = 3, k_col = 2)

library(plotly)
plot_ly(midwest,
  x = ~percollege,
  color = ~state,
  type = "box"
)

library(DiagrammeR)
grViz("
  digraph {
  layout = twopi
  node [shape = circle]
  A -> {B C D}
}")