R/reload.R

In shaliulab/fslretho: fslretho: a Shiny GUI to the Rethomics suite

reloadUI <- function(id) {

  ns <- NS(id)
  tags$li(
    actionButton(ns("button"), "", icon = icon("redo")),
    class = "dropdown user user-menu"
    )
}



reloadModuleServer <- function(id) {

  moduleServer(
    id,
    function(input, output, session) {
      reactive({
        # req(!is.null(input$reloadData))
        input$button
      })
    }
  )
}