r - 如何在 Shiny 中放置按钮

Question

我正在构建一个 Shiny 的应用程序，其中将是一个带有三个选项卡(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() 内，那就太好了。函数指定您希望按钮出现的位置。

Answer 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))