我已经设法用Shinydashboard编写以下代码。 有没有办法减少
调整CSS的解决方案会很好。谢谢。
代码:
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Simple board"),
dashboardSidebar(
sidebarMenu(id = "S",
menuItem("Charts", tabName = "V", icon = icon("database","fa-lg")),
h5(div(style="display:inline-block;width:50%;text-align: left;",
selectInput("Q", label = "type", choices = c("A","B","C"))),
div(style="display:inline-block;width:50%;text-align: left;",
numericInput("NT", "Num", 15, min = 10, max = 33)),
selectInput("s2", label = "interval", choices = c("17 mins","38
min","124 mins"))
)
)
),
dashboardBody()
)
server <- function(input, output) {
}
shinyApp(ui, server)
答案 0 :(得分:0)
您可以在margin
属性的帮助下实现此目的。
例如,对于selectInput,您可以设置margin-left:5px
左右。
对于间隔输入,您可以为其上方的div设置margin-bottom:5px
。
您还可以为margin
属性设置负值。
我希望这可能有所帮助。