inst/shinyappoffline/Shinyoffline.R

In siddhujetty/rpwsdata: Visualize and Analyze Weather Conditions from Wunderground Database

#' Shiny app to query and visualize Wunderground data from local files.
#'
#'@import shiny
#'@importFrom ggplot2 ggplot aes_string geom_point geom_boxplot
#'@importFrom leaflet leafletOutput renderLeaflet leaflet addTiles addMarkers
#'

r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()

ui <- fluidPage(
  # Application title
  titlePanel("Regional Weather Data Offline mode (rpwsdata)", windowTitle = "Regional Weather Data Offline mode(rpwsdata)"),
  helpText("Click on button Get Personal Weather Stations to get PWS for location, select upto three PWS and click button Get conditions to get current and historical weather data"),
  fluidRow(
    column(4,
           textInput("citystate", label = h3("Enter City,State"), value = "Fremont,CA"),
           actionButton("action", label = "Get Personal Weather Stations")
    ),
    column(8, 
           h3("Map of Personal Weather Stations"),
           leaflet::leafletOutput("mymap")
    )      
  ),

  fluidRow(
    column(4,
           actionButton("action_getweather", label = "Get conditions")
    ),
    column(8,
           h3("Selected Personal Weather Stations"),
           tableOutput("table")
    )
  ),

  fluidRow(
    column(4,
           selectInput("weather_condition", label = h3("Select Condition to Plot"),
                       choices = list("temp_f", "relative_humidity", "wind_mph", "pressure_in", "feelslike_f", "precip_today_in"))
    ),
    column(8,
           h3("Current weather across PWS  (pre-selected PWS)"),
           plotOutput("CurrentPlot")
    )
  ),
    
  fluidRow(
    column(4,
           textInput("StartDt", label = h3("Enter Start Date"), value = "2017/01/01"),
           textInput("EndDt", label = h3("Enter End Date"), value = "2017/01/01"),
           selectInput("condition", label = h3("Select Condition to Plot"), 
                       choices = list("tempm","tempi","dewptm","dewpti","hum","pressurem","pressurei"), 
                       selected = "tempi")
    ),
    column(8, 
           h3("Historical Pattern of MicroClimate (pre-selected PWS)"),
           plotOutput("HistoricalPlot")
    )  
  )
  
)

server <- function(input, output, session) {
  
  WebQuery <- reactiveValues(
   obj1 = NULL,
   Whistory = NULL,
   Current_conditions = NULL,
   clickedMarker = NULL,
   selectedpws = data.frame()
  )
  

  pwsdf <- eventReactive(input$action, {
    WebQuery$obj1 <- new("WGround", city="Fremont",state = "CA", runmode = "offline") %>%
      getPWSinfo()
    WebQuery$obj1@pws
  })
  
  select_pws <- eventReactive(input$mymap_marker_click,{
    WebQuery$clickedMarker <- input$mymap_marker_click
    WebQuery$selectedpws <- rbind(WebQuery$selectedpws,WebQuery$obj1@pws[which(WebQuery$obj1@pws$lon == WebQuery$clickedMarker$lng & WebQuery$obj1@pws$lat == WebQuery$clickedMarker$lat), c("id","neighborhood")])
    WebQuery$selectedpws <- tail(WebQuery$selectedpws, n = 3L)
  })
  
  observeEvent(input$mymap_click,{
    WebQuery$clickedMarker <- NULL
    })
  
  output$mymap <- leaflet::renderLeaflet({
    leaflet::leaflet(pwsdf()) %>%
      leaflet::addTiles() %>%
      leaflet::addMarkers(lng = ~lon, lat = ~lat, popup = ~id)
  })
  
  output$table <- renderTable(select_pws())
  
  currentconditions <- eventReactive(input$action_getweather, {
    WebQuery$obj1@selectedpws <- WebQuery$selectedpws
    WebQuery$obj1@selectedpws <- WebQuery$obj1@pws[WebQuery$obj1@pws$id == 'KCAFREMO83'|WebQuery$obj1@pws$id == 'KCAFREMO88',]
    WebQuery$obj1 <- CurrentWeatherbyPWS(WebQuery$obj1)
    WebQuery$obj1@conditions
  })
  
  output$CurrentPlot <- renderPlot({
    ggplot2::ggplot(currentconditions(),ggplot2::aes_string(x = "station_id",y = input$weather_condition)) + ggplot2::geom_point(color="red")
  })

  historicalconditions <- eventReactive(input$action_getweather, {
    WebQuery$obj1@selectedpws <- WebQuery$selectedpws
    WebQuery$obj1@selectedpws <- WebQuery$obj1@pws[WebQuery$obj1@pws$id == 'KCAFREMO83'|WebQuery$obj1@pws == 'KCAFREMO88',]
    WebQuery$Whistory <- getHistoricalWeather(WebQuery$obj1,startDt="2017/01/01",endDt="2017/01/01",maxPWScount = 2)
  })
    
  output$HistoricalPlot <- renderPlot({
    ggplot2::ggplot(historicalconditions(),ggplot2::aes_string(x="ID", y=input$condition))+ggplot2::geom_boxplot(width=0.5)
  })
  
}

shinyApp(ui, server)