R/mod_settingsCharts.R

In safetyGraphics: Interactive Graphics for Monitoring Clinical Trial Safety

#' @title UI for settings tab showing details for the charts loaded in the app 
#'
#' @param id module id
#' 
#' @export

settingsChartsUI <- function(id){
  ns <- NS(id)
  if(isNamespaceLoaded("listviewer")){
    tabs<-tabsetPanel(
      tabPanel("List Explorer", listviewer::jsoneditOutput(ns("chartObj"), height = "800px")),
      tabPanel("Verbatim", verbatimTextOutput(ns("chartList"))),
      tabPanel("YAML", verbatimTextOutput(ns("chartYAML"))) 
    )
  }else{
    tabs<- tabsetPanel(
      tabPanel("Verbatim", verbatimTextOutput(ns("chartList"))),
      tabPanel("YAML", verbatimTextOutput(ns("chartYAML"))) 
    )
  }
    
  list(
    br(),
    p(
      icon("info-circle"),
      "Full details regarding the charts are shown below. Charts specifications are saved in an R list, and can be exported for re-use on the settings/code tab. ",
      class="info"
    ),
    tabs
  )
}

#' @title Server for settings tab showing details for the charts loaded in the app 
#'
#' @param input Shiny input object
#' @param output  Shiny output object
#' @param session Shiny session object
#' @param charts list data frame summarizing the charts
#' 
#' @import dplyr
#' 
#' @export

settingsCharts <- function(input, output, session, charts){
  ns <- session$ns
  if(isNamespaceLoaded("listviewer")){
    output$chartObj <- listviewer::renderJsonedit({
      listviewer::jsonedit(charts)
    })
  }

  output$chartList <- renderPrint({
    print(charts)
  })

  output$chartYAML <- renderText({
    as.yaml(charts)
  })

  

}