我正在尝试指定我的 Shiny Dashboard 标题的宽度,如此处所述。但是我不断收到错误Error in FUN(X[[1L]], ...) : Expected an object with class 'shiny.tag'.
,但只有当我添加额外的行来指定标题宽度时titleWidth = 400
。没有这条线,应用程序运行良好(没有应用程序只是一个骨架页面来重现错误)。
代码如下......非常感谢任何帮助。
## app.R ##
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(
title = "Title Which is Kinda Long",
titleWidth = 400
),
dashboardSidebar(),
dashboardBody()
)
server <- function(input, output) { }
shinyApp(ui, server)