inst/extdata/shinyApp/R/match_ui.R

In jianhaizhang/spatialHeatmap: spatialHeatmap

# Match spatial features between data and aSVG.
match_ui <- function(id) { 
  ns <- NS(id)
  list(
  column(12, fluidRow(splitLayout(cellWidths=c('10px', '400px', '1px', '70px', '1px', '80px', '1px', '70px'), '',
    uiOutput(ns('svgs'), style = 'margin-left:0px'), '',
    uiOutput(ns('match.but')), '',
    uiOutput(ns('match.reset'), style = 'margin-top:24px'), '',
    actionButton(ns("matHelp"), "Help", icon = icon('question-circle'), style=paste0('margin-top:24px;', hp))
    ))), # verbatimTextOutput(ns('msg.match')),
  column(12, uiOutput(ns('ft.match')))
  )
}