r - 如何使标签和盒子在Shiny::numericInput中彼此对齐？

Question

是否可以为框旁边的标签(而不是下面的默认值)创建 Shiny 的numericInput()。

这是一个简单的示例:

library(shiny)

ui <- shinyUI(fluidPage(

    titlePanel("Shiny with lots of numericInput()"),

    sidebarLayout(

        sidebarPanel(
            fluidRow(
                column(6, numericInput("a1", label = "A1", value = 1)),
                column(6, numericInput("b1", label = "B1", value = 1))
            ),
            fluidRow(
                column(6, numericInput("a2", label = "A2", value = 2)),
                column(6, numericInput("b2", label = "B2", value = 2))
            )
        ),

        mainPanel(
            p('something interesting')
        )
    )
))

server <- function(input, output) {}

shinyApp(ui, server)

结果为4行:第一行为标签“A1”和“B1”，第二行为相应的框，依此类推。如果尝试调整 width的 numericInput()参数，这无济于事。

(不幸的是，我并不真正了解html和css来直接修改输入窗口小部件的类。)

Here是类似的问题。但是我可以使用fluidRow()处理同一行，我也希望标签也位于同一行中。

Answer 1

很好的问题，这也与其他控件有关。我感到你很痛苦。下面的解决方案是我使用的，但并不理想。最好将其设置为控件中的 Shiny 参数。 HTML/CSS解决方案很可能看起来也会更好。

 library(shiny) 
ui <- shinyUI(fluidPage(
  titlePanel("Shiny with lots of numericInput()"), 
   sidebarLayout(  
     sidebarPanel(
        fluidRow(
            column(2,  HTML('<b>A1</b>')),
            column(4, numericInput("a1", label = NULL, value = 1)),
            column(2, HTML('<b>B1</b>')), 
            column(4, numericInput("b1", label = NULL, value = 1))
        ),
        fluidRow(
            column(2, HTML('<b>A2</b>')),
            column(4, numericInput("a2", label = NULL, value = 1)),
            column(2,  HTML('<b>B2</b>')), 
            column(4, numericInput("b2", label = NULL, value = 1))
        )  
    ), 
    mainPanel(
        p('something interesting')
    )
))) 
server <-   function(input, output) { } 
shinyApp(ui, server)