R/mod_paramsTree.R

In jennahamlin/phylogeny: PKG_TITLE

# Module UI
  
#' @title   mod_paramsTree_ui and mod_paramsTree_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_paramsTree
#'
#' @keywords internal
#' @export 
#' @importFrom shiny NS tagList 
mod_paramsTree_ui <- function(id){
  ns <- NS(id)
  tagList(
    checkboxInput(ns("alignTips"), "Align tip labels", TRUE),
    checkboxGroupInput(ns("treeFormat"), "What tree layout?", 
                       choices = list(
                          "rectangular" = "rectangular", "slanted" = "slanted", 
                          "circular" = "circular", "fan" = "fan"), selected = "slanted"),
    checkboxGroupInput(ns("fontFormat"), "What font format for tip labels?", 
                       choices = list(
                         "bold" = "bold", "italic" = "italic", 
                         "bold+italic" = "bold.italic"), selected = "bold"),
    numericInput(ns("numScale"), "Size of the scale bar", value = 0.001),
    numericInput(ns("nodeDisplay"), "Size of the scale bar", value = 50, max = 100)
    
  )
}
    
# Module Server
    
#' @rdname mod_paramsTree
#' @export
#' @keywords internal
    
mod_paramsTree_server <- function(input, output, session){
  ns <- session$ns
  
  list(
    align = reactive(input$alignTips),
    treeformat = reactive(input$treeFormat),
    font = reactive(input$fontFormat),
    numscale = reactive(input$numScale),
    node = reactive(input$nodeDisplay))
}
    
## To be copied in the UI
# mod_paramsTree_ui("paramsTree_ui_1")
    
## To be copied in the server
# callModule(mod_paramsTree_server, "paramsTree_ui_1")