Test case: widgets
Other tests: test-dont
,
test-figures
, test-links
,
test-lists
, test-params
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | 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)
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}
}")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.