R/mod_relaunchApp.R

In jennahamlin/Tinsel: An R Shiny Application for annotating outbreak phylogenetic trees

#' relaunchApp Function
#'
#' @title mod_relaunchApp_ui mod_relaunchApp_server
#'
#' @description A shiny Module. This module will relaunch the application
#' and clear out any existing data sets.
#'
#' @rdname mod_relaunchApp
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#' 
#' @keywords internal
#' @importFrom shiny NS tagList
mod_relaunchApp_ui <- function(id) {
  ns <- NS(id)
  tagList(
    actionButton(ns("reload_session"), HTML("Relaunch <br/> App"),
                 style = "color: #fff; background-color:#9c461e ;
                 border-color: #9c461e; width: 150px;", icon("refresh")))
}

#' relaunchApp Server Function
#'
#'@rdname mod_relaunchApp
mod_relaunchApp_server <- function(input, output, session) {
  ns <- session$ns

  #this will reload the session and clear existing info -
  #good if you want to start TOTALLY new
  observeEvent(input$reload_session, {
    session$reload()
  })
}