R/shiny_ui.R

In frandiego/covidTracker: Tracking Covid-19

shiny_ui_sidebar <- function(path,folder='covid_data'){
  argonDashSidebar(
    vertical = TRUE,
    skin = "dark",
    background = "white",
    size = "md",
    side = "left",
    id = "my_sidebar",
    brand_logo = 'https://geodb.com/src/sections/HeaderEN/assets/icons/logo2acee178e01fd3dd965ddfecfc9162bb.svg',
    brand_url = 'https://geodb.com',

    pickerInput(
      inputId = "id_country",
      label=NULL,
      choices = get_countries(path=path,folder=folder),
      multiple = F,
      options = pickerOptions(
        actionsBox = TRUE,
        header = "Region",
        liveSearch = T,liveSearchNormalize = T
      )
    ),
    knobInput(
      inputId = "id_power",
      label = "Lockdown coefficient",
      value = 50,
      min = 0,
      displayInput = T,
      max = 100,
      displayPrevious = F,
      lineCap = "round",
      fgColor = "#428BCA",
      inputColor = "#428BCA",
      rotation = 'anticlockwise',
      readOnly=F,
      immediate=F
    ),
    selectizeInput(inputId = 'id_variables',
                   label='Variables',
                   choices = c('susceptibles','predicted_infecteds','predicted_recovereds',
                               'actual_confirmeds','actual_recovereds', 'actual_deads'),
                   selected = c('predicted_infecteds',
                                'actual_confirmeds','actual_recovereds', 'actual_deads'),
                   multiple=T),
    argonSidebarDivider(),
    argonBadge(
      text = "Medium Post",
      src = "https://medium.com/@GeoDataBlock/covid19-pandemic-trend-prediction-ccc8b68accb1",
      pill = F,
      status = "success"
    )
  )
}


shiny_ui_navbar <- function(){
  argonDashNavbar()
}
shiny_ui_header <- function(){
  argonDashHeader(bottom_padding = 6,height = '200px',
    mask = T,
    opacity = 5,
    gradient = TRUE,
    color = "primary",
    separator = F,
    separator_color = "danger",
    h1("SIR model applied to COVID-19",
       align = "center",style = "color:white"),
  )
}
shiny_ui_footer <- function(){
  return(argonDashFooter())
}
shiny_ui_body <- function(){
  argonDashBody(
    shiny::br(),
        argonRow(center=F,
                 argonColumn(uiOutput('id_info_recv',width=4)),
                 argonColumn(uiOutput('id_info_conf',width=4)),
                 argonColumn(uiOutput('id_info_dead',width=4))),
        argonRow(),
        argonRow(
          argonColumn(
        sliderTextInput(
          inputId = "id_max_month",
          label = NULL,
          grid = F,
          force_edges = TRUE,
          selected = 'May',
          choices = month.abb
        ),width=5),
        argonColumn(
          radioGroupButtons(
            inputId = "id_type",
            status = 'primary',
            label = NULL,
            choices = c("Total", "Differences",
                        "Growth Rates", "Acceleration"),
            selected = "Total",
            individual = T,
            justified = T,
            size = 'normal'
          ),width=5),
        argonColumn(
          materialSwitch(inputId = "id_sir_log",label = "Logs  ",status = "success",right = T,
                         inline = T, value=F),
          materialSwitch(inputId = "id_sir_smooth",label = "Smooth",status = "success",right = T,
                         inline = T, value=F),width=2)),
        highcharter::highchartOutput(outputId = 'id_sir',
                                     width = '100%', height = '500px')
  )
}
shiny_ui <- function(path,folder='covid_data'){
  argonDashPage(
    title = "Covid Tracker",
    author = "Fran Diego",
    description = "Web App to track COVID-19",
    sidebar = shiny_ui_sidebar(path=path,folder=folder),
    navbar = shiny_ui_navbar(),
    header = shiny_ui_header(),
    body = shiny_ui_body(),
    footer = shiny_ui_footer()
  )
}