[英]Inline label for shiny `sliderInput()`
我想讓sliderInput()
label 與特定小部件的幻燈片一致。
應用方法SO導致了這種行為(小部件標簽在圖片上放錯了位置):
假定的“內聯”頂部幻燈片已折疊。 請問我們如何解決這個問題?
library(shiny)
ui <- fluidPage(
tags$head(
tags$style(
type="text/css",
"#inline label {
display: table-cell; text-align: center; vertical-align: middle;
}
#inline .form-group {
display: table-row;
}")
),
tags$div(id = "inline",
sliderInput(inputId = "slid", label = "label inline desired", min = 0, value = 50, step = 1, max = 100)
),
sliderInput(inputId = "slid2", label = "label on top (default)", min = 0, value = 50, step = 1, max = 100)
)
server <- function(input, output, server) {}
shinyApp(ui, server)
也許,這將滿足您的需求
library(shiny)
ui <- fluidPage(
sidebarPanel(
tags$head(tags$style(HTML("div#inline label { width: 32%; }
div#inline input { display: inline-block; width: 68%;}"))),
tags$head(
tags$style(type="text/css", "#inline label{ display: table-cell; text-align: left; vertical-align: middle; }
#inline .form-group { display: table-row;}")),
div(id="inline", style="width:35vw;",
# width = 4,
div(HTML("<b>Bla bla bla bla bla</b>")),
br(),
sliderInput("lbl1", "label 1", min = 0, max = 10, value = 1, step = 1),
sliderInput("lbl2", "my label 2", min = 0, max = 10, value = 2, step = 1),
sliderInput("lbl3", "long label 3", min = 0, max = 10, value = 3, step = 1),
sliderInput("lbl4", "very long label 4", min = 0, max = 10, value = 4, step = 1),
sliderInput("lbl5", "normal label 5", min = 0, max = 10, value = 5, step = 1)
),
sliderInput(inputId = "slid2", label = "label on top (default)", min = 0, value = 50, step = 1, max = 100)
)
)
server <- function(input, output) {}
shinyApp(ui = ui, server = server)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.