如何在 Shiny 中放置按钮答案

【问题标题】：How to place buttons in Shiny如何在 Shiny 中放置按钮
【发布时间】：2017-03-25 02:09:45
【问题描述】：

我正在构建一个闪亮的应用程序，其中将是一个带有三个选项卡（tab1、tab2 和 tab3）的 tabsetPanel。我将有两个将应用于所有选项卡的操作按钮，但我不希望选项卡内的操作按钮，我希望它们位于选项卡的最右侧，所以现在不管你在哪个选项卡，您始终可以看到操作按钮。这是我正在谈论的一些代码：

tabsetPanel(

        tabPanel(
           title = "Tab1"
        )

        tabPanel(
           title = "Tab2"
        )

        tabPanel(
           title = "Tab3"
        )
)

所以我希望这两个操作按钮位于选项卡的最右侧，但在 tabsetPanel 之外。

actionButton('load_inputs', 'Load inputs')
actionButton('save_inputs', 'Save inputs')

如果有一种方法可以在 actionButton() 函数中指定您希望按钮出现的位置，那就太好了。

【问题讨论】：

标签： r shiny

【解决方案1】：

您可以使用 CSS 定义任何元素的位置。您可以通过添加属性样式为每个按钮添加样式：actionButton(style= "...")。您也可以使用自定义样式创建一个 .css 文件。但是对于这种情况，您可以将样式设置为按钮所在的div。

下面是在tabsetPanel 的右上角添加两个按钮的基本示例。

library(shiny)

ui <- fluidPage(
  titlePanel("Tabsets"),
  div(style = "position:absolute;right:1em;", 
    actionButton('load_inputs', 'Load inputs'),
    actionButton('save_inputs', 'Save inputs')
  ),
  tabsetPanel(
    tabPanel("Tab1", h2("Content 1")), 
    tabPanel("Tab2", h2("Content 2")), 
    tabPanel("Tab3", h2("Content 3"))
  )
)

server <- function(input, output, session) {
}
runApp(list(ui = ui, server = server))

【讨论】：

正是我需要的。非常感谢！