Shiny 减少小部件之间的空间
是否有一种方法可以进一步减少小部件之间的空白空间，如下所示。减少日期和DF之间的空间Shiny 减少小部件之间的空间,shiny,Shiny,是否有一种方法可以进一步减少小部件之间的空白空间，如下所示。减少日期和DF之间的空间 if（交互式（））{ 图书馆（闪亮） 图书馆（shinyWidgets） 图书馆（DT） ui您可以通过将两个col-sm-2类的CSS设置为删除（或减少）来实现这一点padding left和padding right属性。问题是您可能希望在date框的左padding和df框的右padding中重新添加。您可以这样做： library(shiny) library(shinyWidgets) librar
if（交互式（））{
图书馆（闪亮）
图书馆（shinyWidgets）
图书馆（DT）
ui您可以通过将两个col-sm-2
类的CSS设置为删除（或减少）来实现这一点padding left
和padding right
属性。问题是您可能希望在date
框的左padding和df
框的右padding中重新添加。您可以这样做：
library(shiny)
library(shinyWidgets)
library(shinydashboard)
library(DT)
ui <- fluidPage(
tags$h3("Material switch examples"),
tags$style("
.col-sm-2{
padding-right: 0;
padding-left: 0;
}
#date{
padding-left: 25px;
}
#df{
padding-right: 15px;
}
"),
fluidRow(column(width = 7),
fluidRow(box(width = 2, dateInput("date","Date", value = Sys.time(), min = Sys.time(), max = Sys.time()-30)),
box(width = 2, selectInput("df","DF",choices = unique(iris$Species))),
box(width = 2, actionButton("ab","Action")))),
dataTableOutput("df")
)
server <- function(input, output) {
output$df <- DT::renderDataTable({
datatable(head(iris),caption = "Iris",options = list(dom = 'ft'))
})
}
shinyApp(ui, server)
库（闪亮）
图书馆（shinyWidgets）
图书馆（shinydashboard）
图书馆（DT）
用户界面
library(shiny)
library(shinyWidgets)
library(shinydashboard)
library(DT)
ui <- fluidPage(
tags$h3("Material switch examples"),
tags$style("
.col-sm-2{
padding-right: 0;
padding-left: 0;
}
#date{
padding-left: 25px;
}
#df{
padding-right: 15px;
}
"),
fluidRow(column(width = 7),
fluidRow(box(width = 2, dateInput("date","Date", value = Sys.time(), min = Sys.time(), max = Sys.time()-30)),
box(width = 2, selectInput("df","DF",choices = unique(iris$Species))),
box(width = 2, actionButton("ab","Action")))),
dataTableOutput("df")
)
server <- function(input, output) {
output$df <- DT::renderDataTable({
datatable(head(iris),caption = "Iris",options = list(dom = 'ft'))
})
}
shinyApp(ui, server)