inst/shiny/fire_viewer_db/ui.R

In raffscallion/goesfire: Tools for the GOES-ABI Fire (Hot Spot Characterization) Product

shinyUI(fluidPage(

  title = "GEOS Fire Viewer",

  fluidRow(
    br()
  ),
  fluidRow(
    column(width = 1,
           tags$a(
             href = "https://portal.airfire.org/",
             tags$img(src = "USFS.png",
                      title = "AirFire Tools Home",
                      width = "50",
                      height = "50")
             )
           ),
    column(width = 2,
           uiOutput("date_range")),
    column(width = 2,
           selectInput("source", "Source", choices = c("GOES-18", "GOES-19",
                                                       "Best Available",
                                                       "GOES-18 and GOES-19"),
                       selected = "Best Available")),
    column(width = 1, actionButton("set_dates", "Get Fires",
                                   style = "margin-top: 25px; float: left")),
    column(width = 3, offset = 1,
           sliderInput("datetimes", label = "Times (UTC)",
                       min = as.POSIXct(Sys.Date() - 1, tz = "UTC"),
                       max = as.POSIXct(Sys.Date() + 1, tz = "UTC"),
                       value = c(as.POSIXct(Sys.Date() - 1, tz = "UTC"),
                                 as.POSIXct(Sys.Date() + 1, tz = "UTC")),
                       width = "100%", step = 60 * 5, animate = TRUE,
                       timezone = "+0000")),
    column(1, offset = 1,
           actionButton("about", "About this tool"))
  ),
  fluidRow(
    column(width = 9,
           leafletOutput("map", height = "500px")),
    column(width = 3,
           checkboxGroupInput("masks", label = "Mask Values",
                              choiceValues = c(10, 11, 12, 13, 14, 15,
                                               30, 31, 32, 33, 34, 35),
                              selected = c(10, 11, 30, 31),
                              choiceNames = c("10 - Good",
                                              "11 - Saturated",
                                              "12 - Cloud Contaminated",
                                              "13 - High Probability",
                                              "14 - Medium Probability",
                                              "15 - Low Probability",
                                              "30 - TF Good",
                                              "31 - TF Saturated",
                                              "32 - TF Cloud Cont.",
                                              "33 - TF High Prob.",
                                              "34 - TF Medium Prob.",
                                              "35 - TF Low Prob.")),
           selectInput("resolution", "Plot Resolution",
                       choices = c("5 minute", "Hourly", "Daily"),
                       selected = "5 minute")
           )
  ),
  fluidRow(
    column(width = 3, plotlyOutput("fire_count", height = "300px")),
    column(width = 3, plotlyOutput("fire_area", height = "300px")),
    column(width = 3, plotlyOutput("total_fre", height = "300px")),
    column(width = 3, plotlyOutput("total_pm", height = "300px"))
  )
))