以内联方式显示文件输入和操作按钮 [英] To show fileinput and actionbutton inline
本文介绍了以内联方式显示文件输入和操作按钮的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我正在尝试使用R shiny构建一个应用程序,其中我在同一个框中使用文件输入和操作按钮。我面临着以上两个问题的内联显示。请参考下面的工作示例:
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)
目前的情况是: 我想要这样的东西:
推荐答案
您可以向操作按钮添加样式标记:
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)
您还可以使用宽度和页边距来更改操作按钮的大小和位置。
这篇关于以内联方式显示文件输入和操作按钮的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文