bugfix> r > 投稿

同じボックスで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)

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

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

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

あなたの答え