tabPanel中的两个selectInput(闪亮)

时间:2017-10-31 14:05:57

标签: r shiny

我正在使用shinydashboard并且在dashboardBody()中 - 函数我有一个带tabPanel的tabBox。在我有两个selectInputs,我希望彼此相邻。但是不管它们的大小如何,第二个会自动放在第一个之下,尽管旁边有足够的空间。有人知道如何强制selectInputs彼此相邻吗?

1 个答案:

答案 0 :(得分:0)

style标记中使用div,您可以执行以下操作:

 library(shiny)
 runApp(list(
   ui = fluidPage(
      div(style="display:inline-block",selectInput("input1", label="Input 1", choices = list("Choice 1" = 1, "Choice 2" = 2))),
      div(style="display:inline-block",selectInput("input2", label="Input 2", choices = list("Choice 1" = 1, "Choice 2" = 2)))
   ),
  server = function(input, output) {}
))

这将为您提供两个彼此相邻的selectInput,如下图所示:

enter image description here