シャイニーにボタンを配置する方法

Question

私は3つのタブ（tab1、tab2、およびtab3）を持つtabsetPanelになる光沢のあるアプリケーションを構築しています。私はすべてのタブに適用される2つのアクションボタンを持っていますが、私はタブ内にアクションボタンを望んでいません、私はそれらがタブの右端にあるようにしたいので、常にアクションボタンを見ることができます。ここで私が話しています何のためにいくつかのコードです：

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の右隅に2つのボタンを追加する基本的な例です。

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