knitr::opts_chunk$set(echo = FALSE) knitr::read_chunk("../../R/tool.R") knitr::read_chunk("../../R/data.R") knitr::read_chunk("../../R/ccze_init_table.R")
<<init>> <<tool>> <<data>>
setHeader(title=c("Activité : indicateur de confiance dans l'industrie","Activity: industrial confidence indicator"), legend=c("solde des opinions","balance of opinions"))
#get data & metadata data.collection <- getDataCollection() data.0 <- getData(data.collection,params$data.collection[1]) meta <- data.0[[1]] #metadata data.0 <- data.0[[2]] #data #select series series <- c(1, #variable 13, #France 8, #Germany 23, #Austria 4, #Belgium 16, #Cyprus 12, #Spain 9, #Estonia 29, #Finland 11, #Greece 10, #Ireland 15, #Italy 17, #Latvia 18, #Lithuania 19, #Luxembourg, 21, #Malta 22, #Netherlands 25, #Portugal 28, #Slovakia 27, #Slovenia 3, #Euro area 5, #Bulgaria 14, #Croatia 7, #Denmark 20, #Hungary 24, #Poland 26, #Romania 31, #United Kingdom 30, #Sweden 6, #Czech Republic 2) #European union data <- t(data.0[,series]) #set metadata: met <- tail(meta[series],-1) met <- getCountryByCode(met) #generate datatable: #header: cols <- zoo::as.yearmon(as.character(data[1,]),"%Y-%m") sketch = htmltools::withTags(table( thead( tr( th(colspan=1,rowspan=2), getTH(base::table(as.character(format(cols,"%Y"))),"Y") ), tr( getTH(as.character(format(cols,"%b")),"M") ) ) )) #end header #data data <- as.data.frame(data,stringsAsFactors=F)[-1,] t1 <- genDataTable(data,met,sketch, countries.highlight=c("FR","EA","EU"),nbdigits=2) #ouput the table t1
#generate footer: footer <- htmltools::withTags( list( ) ) footer <- setFooter(footer,source=c("Commission européenne","European Commission")) #output footer: footer
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.