R/mod_odk.R

In dbca-wa/turtleviewer: WA Turtle Data Viewer

# Module UI

#' @title   mod_odk_ui and mod_odk_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_odk
#'
#' @keywords internal
#' @export
#' @importFrom shiny NS tagList
mod_odk_ui <- function(id) {
  ns <- NS(id)
  tagList(
    actionButton("browser", "browser")
  )
  tags$script("$('#browser').hide();")
}

# Module Server

#' @rdname mod_odk
#' @export
#' @keywords internal
mod_odk_server <- function(input, output, session) {
  ns <- session$ns
  observeEvent(input$browser, {
    browser()
  })
}