R/module_sankey.R

In KWB-R/fakin.path.app: Shiny App to Visualise File Paths

# sankeyUI ---------------------------------------------------------------------

#' @importFrom kwb.utils defaultIfNULL
#' @importFrom shiny mainPanel NS selectInput sidebarLayout sidebarPanel
#' @importFrom shiny sliderInput uiOutput
#' @importFrom stats setNames
#' @keywords internal
sankeyUI <- function(id)
{
  ns <- shiny::NS(id)

  raw_config <- read_slider_config_raw(file = system.file(
    "extdata/sankey_sliders.csv", package = "fakin.path.app"
  ))

  # Give IDs using the namespace function and give default labels
  config <- lapply(stats::setNames(nm = names(raw_config)), function(id) {
    result <- raw_config[[id]]
    result$inputId <- ns(id)
    result$label <- kwb.utils::defaultIfNULL(result$label, id)
    result
  })

  slider_inputs <- unname(lapply(config, do.call, what = shiny::sliderInput))
  
  # weight_by_input <- shiny::selectInput(
  #   inputId = ns("weight_by"), 
  #   label = "Link width represents", 
  #   choices = c(
  #     "file count" = "n_files", "file size" = "size", "nothing" = "none" 
  #   )
  # )
  
  weight_by_input <- NULL
  
  shiny::sidebarLayout(
    do.call(shiny::sidebarPanel, c(
      weight_by_input, slider_inputs, width = get_global("sidebar_width")
    )),
    shiny::mainPanel(
      shiny::uiOutput(ns("graph"))
    )
  )
}

# sankey -----------------------------------------------------------------------

#' @importFrom kwb.utils defaultIfNULL selectColumns
#' @importFrom networkD3 renderSankeyNetwork sankeyNetworkOutput
#' @importFrom shiny NS renderUI
#' @keywords internal
sankey <- function(input, output, session, path_list, id = NULL)
{
  default_on_null <- kwb.utils::defaultIfNULL

  output$graph_ <- networkD3::renderSankeyNetwork({
    plot_path_network(
      paths = path_list(),
      max_depth = input$max_depth,
      nodePadding = default_on_null(input$nodePadding, 10),
      nodeWidth = default_on_null(input$nodeWidth, 15),
      fontSize = default_on_null(input$fontSize, 12),
      margin = c(bottom = 0L, left = 0L, top = 0L, right = 0L),
      weight_by = "n_files", #input$weight_by,
      sizes = kwb.utils::selectColumns(path_list()@data, "size"), 
      method = 2
    )
  })

  output$graph <- shiny::renderUI({
    networkD3::sankeyNetworkOutput(
      if (! is.null(id)) shiny::NS(id)("graph_") else "graph_", 
      height = default_on_null(input$height, "500px"), 
      width = default_on_null(input$width, "100%")
    )
  })
}