带有Bootswatch Cerulean主题的shiny 仪表板中的浏览&按钮可见性问题

发布于01月19日

我在一个使用Bootswatch Cerulean主题的shiny 的仪表板应用程序中，面临着fileInput小部件中"Browse"按钮的可见性问题."浏览"按钮没有按预期显示，用户很难理解如何上传文件.

以下是我的代码的简化示例:

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
        tags$head(
            tags$link(rel = "stylesheet", type = "text/css", href = "https://bootswatch.com/5/cerulean/bootstrap.css")
        ),
        fileInput("file1", "Upload a file")
    )
)

server <- function(input, output, session) {

}

shinyApp(ui, server)

如您所见，Cerulean主题的"Browse"按钮并不清晰可见.我想让它可见，并很容易为用户点击.在使用Cerulean主题时，有没有办法调整css或设置来解决这个可见性问题？

在这种情况下，任何关于改善用户体验的指导或解决方案都将受到高度赞赏.

提前感谢您的帮助.

library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(), dashboardSidebar(), dashboardBody( tags$head( tags$link(rel = "stylesheet", type = "text/css", href = "https://bootswatch.com/5/cerulean/bootstrap.css"), tags$style(HTML(" .input-group-btn { width: 10%; } ")) ), wellPanel( fileInput("file1", "Upload a file") ) ) ) server <- function(input, output, session) { } shinyApp(ui, server)

带有Bootswatch Cerulean主题的shiny 仪表板中的浏览&按钮可见性问题

推荐答案

R相关问答推荐

对lme 4对象运行summary()时出错(diag中的错误(from，names = RST)：对象unpackedMatrix_diag_get找不到)

在R中查找每个组不同时间段的总天数

用derrr在R中查找组间的重复项

如何删除gggvenn与gggplot绘制的空白？

R for循环返回到先前值

derrr mutate case_when grepl不能在R中正确返回值

如何在所有绘图中保持条件值的 colored颜色相同？

使用rest从header(h2，h3，table)提取分层信息

LOF中的插图短文字幕

根据现有列的名称和字符串的存在进行变异以创建多个新列

哪一行和行和 Select 特定行，但是考虑到Nas

方法：：slotName如何处理非类、非字符的参数？

从R中发出的咕噜声中的BUG？

R -基线图-图形周围的阴影区域

有没有办法将基于每个值中出现的两个关键字或短语的字符串向量重新编码为具有这两个值的新向量？

对R中的列表列执行ROW Mean操作

如何将EC50值绘制在R中的剂量-react 曲线上？

Ggplot2如何找到存储在对象中的残差和拟合值？

使用ggplot2绘制具有边缘分布的坡度图

将边列表转换为路径长度列表