r - 内联显示文件输入和操作按钮
问题描述
我正在尝试使用 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)
您还可以使用 width 和 margin-top 来改变操作按钮的大小和位置。
推荐阅读
- python - Keras 模型编译错误:TypeError:“张量”类型的对象没有 len() model.compile
- python - 从ui文件加载的PySide2 QMainWindow未触发窗口事件
- python - 蛮力 360 度模板匹配 OpenCV Python
- selenium - 如何在 ZAP selenium 中使用 ZAP JxBrowser?
- c# - 重用实体框架 Sqlite DBContext 是否安全?
- r - 如何在 R 中删除值超过 90% 为“0”的列
- php - 如何使用 apache 和 php 调试 HTTP ERROR 500?
- msbuild - 使用 MSBuild api 15.9.20 构建(编译)wixproj 时出错
- kubernetes - Kubernetes 主 API 服务器 IP
- jhipster - 无法理解 jhipster 控制器中请求映射和资源中的 api?