fileinputとactionbuttonをインラインで表示するには

bugfix> r > 投稿 2020-08-22 20:16

同じボックスでfileinputとアクションボタンを使用しているR shinyを使用してアプリを構築しようとしています。上記の2つのインラインを表示する問題に直面しています。以下の作業例を参照してください。

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(title = "Inline Widgets Issue"),
  dashboardSidebar(
  ),
  dashboardBody(  
    box(title = "Working Example",width=40 ,status = "warning", solidHeader = TRUE, collapsible = FALSE,
        fluidRow(column(width=8,fileInput('file1', 'Browse File',width="100%",
                                           accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv'))),
                        column(width=2,actionButton("save","Save!!")))
    ))
)
server <- function(input, output) {
}
shinyApp(ui, server)

現在、これは状況です：私はこのようなものが欲しい：

r

shiny

shinydashboard

回答 1 件

アクションボタンにスタイルタグを追加できます。

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(title = "Inline Widgets Issue"),
  dashboardSidebar(
  ),
  dashboardBody(  
    box(title = "Working Example",width=40 ,status = "warning", solidHeader = TRUE, collapsible = FALSE,
        fluidRow(column(width=8,fileInput('file1', 'Browse File',width="100%",
                                          accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv'))),
                 column(width=2,actionButton("save","Save!!"))),
        tags$style(type='text/css', "#save { width:100%; margin-top: 25px;}")
    ))
)
server <- function(input, output) {
}
shinyApp(ui, server)

また、幅と余白を操作して、アクションボタンのサイズと位置を変更することもできます。