inst/templates/pod_sidebar.R

In ijlyttle/shinypod: Reusable shiny modules

#' Sidebar layout for {{{ name }}} module
#'
#' These functions return the ui elements for a side panel and a main panel.
#'
#' Generally, the side elements are the inputs; the main elements are the outputs.
#'
#' @param id character, used to identify a namespace
#'
#' @return a \code{shiny::\link[shiny]{tagList}} containing UI elements
#'
#' @examples
#' shinyUI(
#'   fluidPage(
#'     shinyjs::useShinyjs(),
#'     sidebarLayout(
#'       sidebarPanel({{{ name }}}_sidebar_side("foo")),
#'       mainPanel({{{ name }}}_sidebar_main("foo"))
#'     )
#'   )
#' )
#'
#' @export
#
{{{ name }}}_sidebar_side <- function(id){

  ns <- shiny::NS(id)

  sidebar_elems <- {{{ name }}}_ui_input(id)

  sidebar_elems
}

#' @rdname {{{ name }}}_sidebar_side
#' @export
#
{{{ name }}}_sidebar_main <- function(id){

  main_elems <- {{{ name }}}_ui_output(id)

  main_elems
}

#' @seealso {{{ name }}}_sidebar_main
#' @rdname {{{ name }}}_server
#' @export
#
{{{ name }}}_sidebar_server <- function(
  input, output, session,
  data,
  status_show = TRUE,
  status_alert = TRUE
){

  ## reactives ##
  ###############

  list_rct <- {{{ name }}}_server(input, output, session, data, status_alert)

  rct_data_new <- list_rct$rct_data_new
  rct_state <- list_rct$rct_state

  rct_status_show <- reactive({
    shinypod::static(status_show)
  })

  ## observers ##
  ###############

  # shows and hides controls based on the availabilty and nature of data
  shiny::observe({
    # outputs
    shinyjs::toggle("status", condition = rct_status_show())
    shinyjs::toggle("data", condition = rct_state()$has_data)
    shinyjs::toggle("data_new", condition = rct_state()$has_data_new)
  })

  rct_data_new
}