#' Real Time Data For Switzerland
#'
#' @docType data
#'
#' @format data frame
#'
#' @source SECO
#'
#' @name swiss_history
#' @keywords datasets
#' @examples
#' \dontrun{
#' ## import latest data
#' url <- paste0(
#' "https://www.seco.admin.ch/dam/seco/de/dokumente/Wirtschaft/",
#' "Wirtschaftslage/VIP%20Quartalssch%C3%A4tzungen/",
#' "realtime_database.xls.download.xls/realtime_database.xls"
#' )
#'
#' library(readxl)
#' library(dplyr)
#' library(tidyr)
#' library(tsbox)
#' library(timemachine)
#'
#' tf <- tempfile(fileext = ".xls")
#' download.file(url, tf)
#'
#'
#' sheets <- readxl::excel_sheets(tf)
#'
#' swiss_history <-
#' tibble(id = setdiff(sheets, "title")) %>%
#' rowwise() %>%
#' mutate(data = list(read_excel(path = tf, sheet = id, skip = 10))) %>%
#' ungroup() %>%
#' unnest(cols = c(data)) %>%
#' rename(ref_date = X__1) %>%
#' gather(pub_date, value, -id, -ref_date) %>%
#' mutate_at(c("ref_date", "pub_date"), parse_date_2000colon1) %>%
#' select(id, pub_date, ref_date, value) %>%
#' filter(!is.na(value))
#'
#' # save(swiss_history, file = "data/swiss_history.RData", compress='xz')
#' }
#' data(swiss_history)
#' swiss_history
NULL
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.