Я делаю блестящее приложение, в котором пользовательский интерфейс представляет собой страницу панели инструментов из пакета «semanti c .dashboard». Я заметил, что fileInput выглядит нормально, когда я помещаю его в fluidPage, но когда я помещаю его в dashboardPage, он имеет другой вид, по сути, у него нет кнопки для «просмотра», и стиль очень ... «минималистский». Что я могу сделать, чтобы сделать ввод файла панели мониторинга такой же, как и на fluidPage?
В fluidPage: fileInput выглядит совершенно нормально.
На странице панели инструментов: почему он выглядит без кнопок, почему это выглядит так странно?
Я пробовал использовать Chrome и Microsoft Edge в качестве браузеров, но эта проблема не зависит от выбора браузера. Я также думал, что это может быть проблема CSS, но попытки использования разных стилей никогда не меняли внешний вид самого fileInput.
Ниже приведен код, который я хотел бы изменить для этого.
library(shiny)
library(shinyFiles)
library(semantic.dashboard)
ui = dashboardPage(title="Home",suppress_bootstrap=TRUE,
dashboardHeader(color="red", inverted=TRUE),
dashboardSidebar(
size="thin", color="teal",
sidebarMenu(
menuItem(tabName="download", "Download", icon=icon("download")),
menuItem(tabName="upload", "Upload", icon=icon("upload")),
menuItem(tabName="main", "Main", icon=icon("car")),
menuItem(tabName="extra", "Extra", icon=icon("table"))
)
),
dashboardBody(
tabItems(
selected=1,
tabItem(
tabName="download",
sidebarPanel(
fileInput("directory_export", "Choose output location",
accept = c(
"text/csv",
"text/comma-separated-values,text/plain",
"application/vnd.ms-excel",
".csv"),
multiple=TRUE,
buttonLabel="Browse",
placeholder="Loading..."
)
)
),
tabItem(
tabName="upload",
),
tabItem(
tabName="main",
),
tabItem(
tabName="extra",
)
)
), theme="cerulean"
)
server=shinyServer(function(input, output, session) {
})
shinyApp(ui, server)
Если есть идея, спасибо!