inst/dtcountry/app.R

In etc5523-2020/r-package-assessment-1029YanMa: Communicating With Data Course Assignment COVID19 Data Explore Package

library(shiny)
library(shinythemes)
library(dplyr)
library(tidyverse)
library(DT)
library(lubridate)
library(ggplot2)
library(plotly)
library(zoo)





#-------------------Data Cleaning-------------------------

corona_country <- coronavirus %>%
  group_by(country, date, type) %>%
  summarise(cases = sum(cases)) %>%
  ungroup()

corona_wide <- corona_country %>%
  pivot_wider(names_from = type, values_from = cases)

ratios <- corona_wide %>%
  mutate(recover_cum = cumsum(recovered),
         confirm_cum = cumsum(confirmed),
         death_cum = cumsum(death))

ratios <- ratios %>%
  mutate(recover_ratio = round(recover_cum / confirm_cum, 2),
         death_ratio = round(death_cum / confirm_cum, 2))

ratios %>%
  select(country, date, confirmed, confirm_cum,
         recovered, recover_cum, recover_ratio,
         death, death_cum, death_ratio)

country_name <- c("Chile", "Bolivia")


#--------------------------ui-----------------------------
ui <- fluidPage(
  theme = shinytheme("cerulean"),

  h1("COVID-19 Data Explore -- Chile and Bolivia"),
  br(),
  h3("Daily Cases Data of Your Selected Country"),
  br(),
  p("You can check the daily data of COVID-19 of Chile and Bolivia in the following table. By clicking the 'Please Select a Country', you can swicth the country to see the data of that country. And by typing a date in the search box, you can see the data of that day."),
  p("This table provides the data of (1) newly confirmed, recovered and dead cases; (2) the cumulative cases; (3) the ratio of recovery and death."),
  sidebarLayout(sidebarPanel(selectInput(inputId = "select_country",
                                         label = "Please Select a Country",
                                         choices = country_name,
                                         selected = "Chile")),
                mainPanel(dataTableOutput("selected_country")))
)


#--------------------------server----------------------------
server <- function(input, output, session) {

  output$selected_country <- DT::renderDataTable({

    ratios <- ratios %>%
      filter(country == input$select_country) %>%
      arrange(desc(date))

    DT::datatable(ratios, options = list(pageLengh = 15),
                  extensions = 'Responsive')

  })
}

shinyApp(ui, server)