#' Append metadata to the dendrogrm's labels
#'
#' @param id namespace id
#'
#' @return shiny UImodule
#'
#'
appendDendLabsUI <- function(id) {
ns <- shiny::NS(id)
uiOutput(ns("absPanelmodAppendDendLabels"))
}
#' modAppendDendLabels_WellPanel UI
#'
#' @param ns shiny namespace
#'
#' @return shiny ui
#'
#'
modAppendDendLabels_WellPanel <- function(ns){
shiny::absolutePanel(
class = "dendMod_WellPanel",
top = "30%",
right = "0%",
width = "30%",
fixed = F,
draggable = T,
style = "z-index:1002;",
shiny::wellPanel(class = "dendDots_WellPanel",
fluidRow(
fluidRow(p("sdsd"),
uiOutput(ns("appendmetaColumns"))
),
shiny::actionButton(ns("closeModAppendDendLabels"),
"Close")
))
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.