Commit d4046905 authored by vbaudrot's avatar vbaudrot

Bug zoom Size font

parent af403d13
......@@ -224,12 +224,6 @@ server <- function(input, output, session){
})
# output$tableForecast <- renderDT({
# dfForecast
# # dataSelectFORECAST()
# },
# rownames= FALSE)
observe({
n_country = length(input$forecastCountry)
Color = c(rep(colors,floor(n_country/length(colors))),head(colors,n_country %% length(colors)))
......@@ -242,42 +236,6 @@ server <- function(input, output, session){
rawcurves_plotly_f(dataSelectFORECAST(), rescale = FALSE, Color = Color)
})
# Select model
# output$selectFocalCountry <- renderUI({
# selectizeInput("focalCountry_1",
# "Select a country to view its mortality forecast",
# #choices = selectCountry(),
# choices = sort(names(list_figures$list_figures_model0)),
# options = list(
# placeholder = 'Please select country below',
# onInitialize = I('function() { this.setValue(""); }')
# ),
# selected = NULL,
# # selected = selectCountry()[1],
# multiple = FALSE
# )
# })
# selectCountry = reactive({
# if(input$paramPredict_model1){
# sort(names(list_figures$list_figures_model1))
# } else{
# sort(names(list_figures$list_figures_model0))
# }
# })
# observe({
# updateSelectizeInput(session,
# "focalCountry_1",
# "Select a country to view its mortality forecast",
# choices = selectCountry(),
# #choices = sort(names(list_figures$list_figures_model0)),
# # options = list(
# # placeholder = 'Please select country below',
# # onInitialize = I('function() { this.setValue(""); }')
# # ),
# # selected = NULL,
# server = TRUE)
# })
# PlotWith Forecast
model1 <- reactive({
if(length(input$paramPredict) == 0 ) return( FALSE )
......@@ -315,7 +273,6 @@ server <- function(input, output, session){
output$plotWithForecast_1 <- renderPlotly({
if(input$zoomIn %% 2){ #odd number
final_plotly_f(list_figuresPLOT()[[input$focalCountry_1]], model1 = model1())
final_plotly_f(list_figuresPLOT(), model1 = model1())
} else{
final_plotly_f(list_figuresPLOT()[[input$focalCountry_1]], model1 = model1()) %>%
layout(xaxis = list(
......
......@@ -14,7 +14,7 @@
.skin-black .main-header .logo {
font-family: 'Raleway';
font-weight: bold;
font-size: 24px;
font-size: 16px;
background-color: #00a3a6;
color: #ffffff;
}
......@@ -31,7 +31,7 @@
.skin-black .main-sidebar {
background-color: #275662;
font-family: "Raleway";
font-size:20px;
font-size:14px;
line-height:1.42857143;
position: fixed;
}
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