如何将css样式应用于ShinyWiges中的actionBttn

如何将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

我有一个例子闪亮的应用程序如下。要使用selectInput操作按钮,我需要添加
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_带_样式