Commit 1b3c65f0 authored by AnatoleCheysson's avatar AnatoleCheysson

Removed runtime shiny Replaced shiny buttons by links

parent 93ca7d65
......@@ -4,7 +4,6 @@ output:
code_folding: hide
toc: true
toc_float: true
runtime: shiny
bibliography: biblio_cmr14_EA.bib
---
......@@ -13,7 +12,7 @@ bibliography: biblio_cmr14_EA.bib
rm(list = ls())
if (!"pacman" %in% installed.packages()[,"Package"]) install.packages("pacman")
pacman::p_load(dplyr,magrittr,tidyr,ggplot2,lubridate,knitr,zoo,rjson,grid,rsdmx,shiny)
pacman::p_load(dplyr,magrittr,tidyr,ggplot2,lubridate,knitr,zoo,rjson,grid,rsdmx)
opts_chunk$set(message=FALSE, warning=FALSE, cache=FALSE)
......@@ -572,7 +571,7 @@ ggplot(plot_df,aes(time,values))+
axis.text=element_text(size=7))
```
You can download the 6 finance series directly :
You can download the 6 finance series directly as csv [here](http://shiny.obsmacro.org/data/EA_Finance_rawdata.csv)
```{r}
EA_Finance_rawdata <-
EA_Finance_data %>%
......@@ -580,26 +579,11 @@ EA_Finance_rawdata <-
EA_Finance_rawdata %>%
write.csv("EA_Finance_rawdata.csv", row.names=FALSE)
shinyApp(
ui = fluidPage(
downloadButton('downloadData', 'Download data')
),
server = function(input, output) {
output$downloadData <- downloadHandler(filename = 'EA_Finance_rawdata.csv',
content = function(file) {write.csv(EA_Finance_rawdata, file, row.names = FALSE)})
}
)
```
# Final CMR database for the Euro area
We want to build eventually a database similar to the @Chri14a database, but for the Euro area, on the basis of the @Smet03 database. The database will begin in 1980Q1, as the financial series are not available before. You can download all the raw series
We want to build eventually a database similar to the @Chri14a database, but for the Euro area, on the basis of the @Smet03 database. The database will begin in 1980Q1, as the financial series are not available before. You can download all the raw series [here](http://shiny.obsmacro.org/data/EA_CMR_rawdata.csv)
```{r}
#File EA_SW_rawdata.csv is created via EA_SW_data.Rmd, which can be found on obsmacro under sw03-data
......@@ -622,18 +606,6 @@ EA_CMR_rawdata <-
EA_CMR_rawdata %>%
write.csv("EA_CMR_rawdata.csv", row.names=FALSE)
shinyApp(
ui = fluidPage(
downloadButton('downloadData', 'Download data')
),
server = function(input, output) {
output$downloadData <- downloadHandler(filename = 'EA_CMR_rawdata.csv',
content = function(file) {write.csv(EA_CMR_rawdata, file, row.names = FALSE)})
}
)
```
Then data are normalized by capita and price if needed. Eventually we have 14 series : the 12 series similar to @Chri14a plus loans to households and house price series.
......@@ -752,21 +724,7 @@ p <- ggplot(plot_EA_CMR_data,aes(time,values))+
facetAdjust(p)
```
You can also download ready-to-use (normalized) data for the estimation on Dynare :
```{r}
shinyApp(
ui = fluidPage(
downloadButton('downloadData', 'Download data')
),
server = function(input, output) {
output$downloadData <- downloadHandler(filename = 'EA_CMR_data.csv',
content = function(file) {write.csv(EA_CMR_data, file, row.names = FALSE)})
}
)
```
You can also download ready-to-use (normalized) data for the estimation on Dynare [here](http://shiny.obsmacro.org/data/EA_CMR_data.csv)
# Appendix
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment