在Shiny App中对齐ActionButton

Question

在下面的应用中，我想更改ActionButton的三个方面：

1. 将按钮置于其列
中
2. 缩小按钮与顶部文字之间的间距
3. 增加按钮与下方面板之间的间距。

这可以在闪亮的情况下完成吗？

library(shiny)
library(shinyBS)

ui <- 
  fluidPage(
    fluidRow(
      column(12,
             bsCollapse(id="instructionsOutput", open="instructionsPanel",
                        bsCollapsePanel("instructionsPanel",
                                        "This is a panel with text",
                                        style="info"
                                        )
                        )
             ),
      column(12,
             actionButton("p1Button", "Expand/Collapse Text")
             )
    ),
  sidebarLayout(
    sidebarPanel(),
    mainPanel()
  )
)

server <- function(input, output, session) {
  observeEvent(input$p1Button, ({
                updateCollapse(session, "instructionsOutput",
                               open="instructionsPanel",
                               close="instructionsPanel")  
  })
  )

}

shinyApp(ui, server)

Answer 1

回复非常晚...但是，如果有人在寻找可能的解决方案，则可以尝试以下方法。与上面的Xiongbing Jin的答案类似，您可以将{ status: "UP", diskSpace: { status: "UP", total: 205582946304, free: 196070014976, threshold:10485760 } } 和style添加为align

的参数

shiny::column