knitr::opts_chunk$set( collapse = TRUE, comment = "#>", out.width = "100%" ) create_standalone_link <- function(widget, name) { htmlwidgets::saveWidget(widget, name) htmltools::a(href = name, "Karte in eigenem Fenster anzeigen (kann gerne eingebunden werden)") }
library(coronaAT) table_react()
plot_map(1)
create_standalone_link(plot_map(1), "widget_burgenland.html")
plot_map(2)
create_standalone_link(plot_map(2), "widget_kaernten.html")
plot_map(3)
create_standalone_link(plot_map(3), "widget_niederoesterreich.html")
plot_map(4)
create_standalone_link(plot_map(4), "widget_oberoesterreich.html")
plot_map(5)
create_standalone_link(plot_map(5), "widget_salzburg.html")
plot_map(6)
create_standalone_link(plot_map(6), "widget_steiermark.html")
plot_map(7)
create_standalone_link(plot_map(7), "widget_tirol.html")
plot_map(8)
create_standalone_link(plot_map(8), "widget_vorarlberg.html")
plot_map(9)
create_standalone_link(plot_map(9), "widget_wien.html")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.