This function creates an HTML output element for embedding Our World in Data (OWID) charts in a Shiny application. It should be used in the UI definition of your Shiny app.
Examples
if (FALSE) { # interactive() & curl::has_internet()
library(shiny)
ui <- fluidPage(
owid_output("gdp_chart"),
owid_output("co2_chart")
)
server <- function(input, output) {
owid_server(
"gdp_chart",
"https://ourworldindata.org/grapher/gdp-per-capita-worldbank?tab=line"
)
owid_server(
"co2_chart",
"https://ourworldindata.org/grapher/co2-emissions-per-capita",
height = "500px"
)
}
shinyApp(ui = ui, server = server)
}