server.R

options(scipen=999)

shinyServer(function(input, output, session) {
    
    output$confirmados <- renderValueBox({
        valueBox(
            total_confirmados, "Total de casos confirmados", icon = icon("chart-line"),
            color = "aqua"
        )
    })
    
    output$obitos <- renderValueBox({
        valueBox(
            total_obitos, "Total de óbitos", icon = icon("chart-line"),
            color = "red"
        )
    })
    
    output$recuperados <- renderValueBox({
        valueBox(
            total_recuperados, "Total de recuperados", icon = icon("chart-line"),
            color = "green"
        )
    })
    
    output$mapa_br = renderLeaflet({
        
        cores_mapa = colorQuantile(c("#FFF5F0", "#FEE0D2", "#FCBBA1", "#FC9272", "#FB6A4A", "#EF3B2C"), #paleta Reds sem os tons "#CB181D" "#99000D"
                                   domain = unique(as.numeric(mapa_corona$mortes)), n=5)
        
        legenda = paste0("<strong>Estado: </strong>", 
                         mapa_corona$estado,
                         "<br><strong>Mortes: </strong>",
                         mortes_mapa,
                         "<br><strong>Confirmados: </strong>", 
                         casos_mapa,
                         "<br><strong>Recuperados: </strong>", 
                         recuperados_mapa)
        
        mapa = leaflet(mapa_corona, options = leafletOptions(zoomControl = TRUE, minZoom = 4, maxZoom = 4.5, dragging = TRUE)) %>%
            addPolygons(fillColor = ~cores_mapa(as.numeric(mapa_corona$mortes)), 
                        fillOpacity = 0.9, 
                        color = "#4F4F4F", #contornos
                        weight = 1, 
                        popup = legenda) %>%
            addTiles("http://tile.stamen.com/terrain-background/{z}/{x}/{y}.jpg") %>% 
            addLabelOnlyMarkers(~long, ~lat, label =  ~obitos_perc, 
                                labelOptions = labelOptions(noHide = T, direction = 'center', textOnly = T,
                                                            style = list("font-size" = "13px"))) %>% suspendScroll()
        
        mapa
        
    })
    
    output$dados_corona = downloadHandler(
        filename = function() {
            paste("covid19-UFs", Sys.Date(), ".csv", sep="")
        },
        content = function(file) {
            write.csv(corona_brazil[, c(1:5)], file)
        }
    )
    
    
    output$acumulado = renderPlotly({
        g1 = ggplot(covid_total_dia) +
            geom_line(aes(x = data, y = mortes), color='red') +
            geom_point(aes(x = data, y = mortes), color='red', size = 1) +
            
            geom_line(aes(x = data, y = casos), color='blue') +
            geom_point(aes(x = data, y = casos), color='blue', size = 1) +
            
            geom_line(aes(x = data, y = recuperados), color='#008000') +
            geom_point(aes(x = data, y = recuperados), color='#008000', size = 1) +
            
            labs(x = "Dias do mês", y = "Confirmados, recuperados e óbitos") +
            scale_x_date(date_labels = '%d/%m', breaks = "months") +
            ggtitle("") +
            theme_minimal()
        ggplotly(g1)
    })
    
    
    output$obitos_dia = renderPlotly({
        g2 = ggplot(covid_novos_dia, aes(x=data, y=`novas mortes`)) +
            geom_bar(stat="identity", fill = "red") +
            labs(x = "Dias do mês", y = "Óbitos novos") +
            scale_x_date(date_labels = '%d/%m', breaks = "months") +
            ggtitle("") +
            theme_minimal()
        ggplotly(g2)
    })
    
    
    output$casos_novos_dia = renderPlotly({
        g3 = ggplot(covid_novos_dia, aes(x=data, y=`novos casos`)) +
            geom_bar(stat="identity", fill = "blue") +
            labs(x = "Dias do mês", y = "Casos novos") +
            scale_x_date(date_labels = '%d/%m', breaks = "months") +
            ggtitle("") +
            theme_minimal()
        ggplotly(g3)
    })
    
    output$casos_regiao = renderPlotly({
        plot_ly(df_aux, labels = ~`Região`, values = ~`Total de casos confirmados`, type = 'pie',
                textposition = 'inside',
                #textinfo = 'label', #label+percent+value
                insidetextfont = list(color = '#FFFFFF'),
                #hoverinfo = 'text',
                showlegend = TRUE) %>%
            layout(title = '', legend = list(orientation = 'h'),
                   xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
                   yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
    })
    
    output$noticias_br =  renderDataTable({NOTICIAS}, escape = FALSE)
    
})