R/mod_stop_crud.R

In qiushiyan/open-policing: Exploring policing activities in Nashville

#' stop_crud UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_stop_crud_ui <- function(id) {
  ns <- NS(id)
  tabItem(
    tabName = "stops_crud",
    fluidRow(
      box(
        title = "Insert new stop record",
        elevation = 4,
        closable = TRUE,
        width = 6,
        solidHeader = TRUE,
        status = "primary",
        collapsible = TRUE,
        tagList(
          fluidRow(
            textInput(ns("city"), "city", ""),
            textInput(ns("state"), "state", ""),
          ) %>% tagAppendAttributes(style = "justify-content:space-between;"),
          sliderInput(ns("lng"), "lng", value = -85, min = -91, max = -81),
          sliderInput(ns("lat"), "lat", value = 36, min = 34, max = 37),
          fluidRow(
            textInput(ns("zipcode"), "zip code", ""),
            textAreaInput(ns("street_address"), "street address", ""),
          ) %>% tagAppendAttributes(style = "justify-content:space-between;"),
        ),
        actionButton(ns("create_stop_location"), "Create")
      ),
      box(
        title = "Preview stop locations",
        elevation = 4,
        closable = TRUE,
        width = 6,
        solidHeader = TRUE,
        status = "primary",
        collapsible = TRUE,
        DT::dataTableOutput(ns("stops_table"))
      )
    )
  )
}

#' stop_crud Server Functions
#'
#' @noRd
mod_stop_crud_server <- function(id, con) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns

    stops <- suppressWarnings(dbGetQuery(con, "select * from stop_location limit 100"))

    observeEvent(input$create_stop_location, {
      id <- notify("Inserting new stop ...")
      on.exit(removeNotification(id = id))
      lat <- as.numeric(input$lat)
      lng <- as.numeric(input$lng)
      s <- glue::glue("INSERT INTO stop_location (city, lat, lng, state, state_address, zipcode) VALUES ('{input$city}', {lat}, {lng}, '{input$state}', '{input$state_address}', '{input$zip_code}')")
      tryCatch(
        {
          # dbGetQuery(con, s)
          notify("Insertion successful!", id = id)
        },
        error = function(cond) {
          notify(cond$message, id = id, type = "error")
        }
      )
      Sys.sleep(2)
    })


    output$stops_table <- DT::renderDT({
      stops
    })
  })
}

## To be copied in the UI
# mod_stop_crud_ui("stop_crud_1")

## To be copied in the server
# mod_stop_crud_server("stop_crud_1")