如何放置按鈕閃亮

Question

我建立一個閃亮的應用程序，其中將有三個選項卡（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))