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()

Burgenland

plot_map(1)
create_standalone_link(plot_map(1), "widget_burgenland.html")

Kärnten

plot_map(2)
create_standalone_link(plot_map(2), "widget_kaernten.html")

Niederösterreich

plot_map(3)
create_standalone_link(plot_map(3), "widget_niederoesterreich.html")

Oberösterreich

plot_map(4)
create_standalone_link(plot_map(4), "widget_oberoesterreich.html")

Salzburg

plot_map(5)
create_standalone_link(plot_map(5), "widget_salzburg.html")

Steiermark

plot_map(6)
create_standalone_link(plot_map(6), "widget_steiermark.html")

Tirol

plot_map(7)
create_standalone_link(plot_map(7), "widget_tirol.html")

Vorarlberg

plot_map(8)
create_standalone_link(plot_map(8), "widget_vorarlberg.html")

Wien

plot_map(9)
create_standalone_link(plot_map(9), "widget_wien.html")


statistikat/coronar documentation built on April 6, 2020, 6:25 p.m.