inst/app/mod_network.R

In PascalCrepey/HospitalNetwork: Building Networks of Hospitals Through Patients Transfers

# Module UI
  
#' @title   mod_network_ui and mod_network_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_network
#'
#' @keywords internal
#' @export 
#' @importFrom shiny NS tagList 
mod_network_ui <- function(id){
  ns <- NS(id)
  tagList(
      div(id = ns("hideUI"),
          "The network has not been constructed yet"),
      div(id = ns("showUI"),
          tabsetPanel(
              tabPanel("Plots",
                     tabBox(
                         title = NULL,#HTML("<b>Plots</b>"),
                         id = ns("plots"),
                         tabPanel("matrix",
                                  plotOutput(ns("plot_matrix"))),
                         tabPanel("clustered matrix",
                                  plotOutput(ns("plot_clustered_matrix"))),
                         tabPanel("circular network",
                                                  plotOutput(ns("plot_circular_net")),
                                                  
                                  fluidRow(column(6, sliderInput(inputId = ns("alphaSet"), 
                                                              label = "link transparency", value = 0.1, 
                                                              min = 0, max = 1, step = 0.1)),
                                           column(6, sliderInput(inputId = ns("alphaSteps"), 
                                                                 label = "alpha steps", 
                                                                 min = 1, max = 30, step = 1, 
                                                                 value = 15)))
                                  ),
                         side = "right",
                         width = NULL)),
              tabPanel("Edgelist",
                       tabBox(
                         title = NULL,#HTML("<b>Edgelist</b>"),
                         id = ns("edgelist"),
                         tabPanel("aggregated",
                                  DT::DTOutput(ns("el_aggr"))),
                         tabPanel("long",
                                  DT::DTOutput(ns("el_long"))),
                         side = "right",
                         width = NULL))
          ))
  )
}
    
# Module Server
    
#' @rdname mod_network
#' @export
#' @keywords internal
#' @importFrom graphics plot
    
mod_network_server <- function(input, output, session, net){
    ns <- session$ns

    observe({
        shinyjs::toggle("hideUI", condition = is.null(net()))
        shinyjs::toggle("showUI", condition = !is.null(net()))
    })

    output$el_aggr = DT::renderDT({ net()$edgelist },
                                  filter = "bottom",
                                  options = list(scrollY = "400px",
                                                 scrollX = "200px"))
    output$el_long = DT::renderDT({ net()$edgelist_long },
                                  filter = "bottom",
                                  options = list(scrollY = "400px",
                                                 scrollX = "200px"))
    output$plot_matrix = renderPlot({net()$plot("matrix") })
    output$plot_clustered_matrix = renderPlot({net()$plot("clustered_matrix") })
    output$plot_circular_net = renderPlot({
      my_net = net()
      gg=plot(my_net, type = "circular_network", 
           alphaSet = as.numeric(input$alphaSet), 
           alphaSteps = as.numeric(input$alphaSteps))
      gg
    })

    
}
    
## To be copied in the UI
# mod_network_ui("network_ui_1")
    
## To be copied in the server
# callModule(mod_network_server, "network_ui_1")