相关疑难解决方法(0)

我如何定位selectInput()除了标题之外的Shiny小部件(例如下拉框)？我一直在玩各种tags配方而没有任何运气.感谢任何指针.

ui.R

library(shiny)  
pageWithSidebar( 
  headerPanel("side-by-side"), 
  sidebarPanel(
tags$head(
  tags$style(type="text/css", ".control-label {display: inline-block;}"),
  tags$style(type="text/css", "#options { display: inline-block; }"),
  tags$style(type="text/css", "select { display: inline-block; }")
),
selectInput(inputId = "options", label = "dropdown dox:", 
  choices = list(a = 0, b = 1))
  ),
  mainPanel( 
    h3("bla bla")
  )
)

server.R

shinyServer(function(input, output) { NULL })

我正在尝试制作几个滑块，其中标签位于滑块的左侧而不是顶部。

我看到了这两个解决方案：

https://github.com/rstudio/shiny/issues/1737

selectInput 旁边的标签闪亮

但是，它们似乎不适用于新的闪亮模板。标签和滑块确实成为内联的，但滑块的尺寸确实缩小了。

如果我手动将 .irs-line 宽度设置为特定数量的像素，我会得到一个合适大小的滑块，但它在不同的屏幕上或窗口被最小化时看起来很糟糕。如果我尝试将其设为“自动”或“100%”，我将回到“点”而不是滑块。

可重现的例子：

library(shiny)

ui <- fluidPage(
  sidebarPanel(
    width = 4,
    div(HTML("<b>Bla bla bla bla bla</b>")),
    br(),
    tags$head(
      tags$style(type="text/css", 
                 "label.control-label, .selectize-control.single { 
                 display: table-cell; 
                 text-align: center; 
                 vertical-align: middle; 
                 } 
                 label.control-label {
                 padding-right: 10px;
                 }
                 .form-group { 
                 display: table-row;
                 }
                 .selectize-control.single div.item {
                 padding-right: 15px;
                 }
                 .irs-line{
                 width: 100%;
                 }")
    ),
    sliderInput("lbl1", "label 1", min = 0, max = 10, value = 0, step = 1),
    sliderInput("lbl2", "label 2", min = 0, max = …