如何将css样式应用于ShinyWiges中的actionBttn
我有一个例子闪亮的应用程序如下。要使用selectInput操作按钮,我需要添加如何将css样式应用于ShinyWiges中的actionBttn,css,r,shiny,shinydashboard,shinywidgets,Css,R,Shiny,Shinydashboard,Shinywidgets,我有一个例子闪亮的应用程序如下。要使用selectInput操作按钮,我需要添加style='margin-top:25px'。Shinywidgets包具有一些内置样式的actionBttn小部件。例如,我喜欢带有style='gradient'的那个。但我想知道如何使用css样式在顶部添加边距,以便将actionBttn与其他元素对齐 library(shiny) library(shinydashboard) library(shinyWidgets) ui <- dashboa
style='margin-top:25px'
。Shinywidgets包具有一些内置样式的actionBttn
小部件。例如,我喜欢带有style='gradient'
的那个。但我想知道如何使用css样式在顶部添加边距,以便将actionBttn
与其他元素对齐
library(shiny)
library(shinydashboard)
library(shinyWidgets)
ui <- dashboardPage(
dashboardHeader(title = "example"),
dashboardSidebar(),
dashboardBody(
box(width=12,
column(width = 3, dateRangeInput("dateRange", "Date Range",
start = "2017-01-01",
end = Sys.Date(),
min = "2001-01-01",
max = Sys.Date(),
format = "mm/dd/yy",
separator = " - ") ),
column(width=3, selectizeInput(inputId = 'var',
label='Select variable',
choices = c('cut', 'color'),
multiple=FALSE,
options = list(
maxItems = 1,
placeholder = '',
onInitialize = I("function() { this.setValue(''); }"))) ),
column(width=1, offset =2, actionButton('Apply', 'Apply', style='margin-top:25px') ),
column(width=3, actionBttn(
inputId = 'clear',
label = "Clear",
style = "gradient",
color = "danger" ) )
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
库(闪亮)
图书馆(shinydashboard)
图书馆(shinyWidgets)
ui没有.css很难说,但是你可以在中找到一个示例没有.css很难说,但是你可以在中找到一个示例要向由包创建的现有元素添加样式,有时你必须包装该元素。以下是三种方法:
使用所需样式将元素本身包装在div
中。可能不适用于所有CSS元素
使用所需元素的源代码编写自己的自定义函数。这里我使用了来自
添加一些只针对该元素的外部CSS。这是我最不喜欢的方法,因为它将逻辑从实际应用的地方移开,并且您必须跟踪要修改的每个元素
图书馆(闪亮)
图书馆(shinyWidgets)
#进近2的新功能
actionBttn_with_style要将样式添加到由包创建的现有元素中,有时必须包装该元素。以下是三种方法:
使用所需样式将元素本身包装在div
中。可能不适用于所有CSS元素
使用所需元素的源代码编写自己的自定义函数。这里我使用了来自
添加一些只针对该元素的外部CSS。这是我最不喜欢的方法,因为它将逻辑从实际应用的地方移开,并且您必须跟踪要修改的每个元素
图书馆(闪亮)
图书馆(shinyWidgets)
#进近2的新功能
actionBttn_带_样式