为什么我的shinydashboard定制css不起作用？

我遵照这些指示：

但我得到了这个错误：

Warning: Error in $: $ operator is invalid for atomic vectors
  55: dots_list
  54: tags$section
  51: dashboardSidebar

这是我的代码：

library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    # Custom CSS to hide the default logout panel
    tags$head(tags$style(HTML('.shiny-server-account { display: none; }'))),

    # The dynamically-generated user panel
    uiOutput("userpanel")
  ),
  dashboardBody()
)

server <- function(input, output, session) {
  output$userpanel <- renderUI({
    # session$user is non-NULL only in authenticated sessions
    if (!is.null(session$user)) {
      sidebarUserPanel(
        span("Logged in as ", session$user),
        subtitle = a(icon("sign-out"), "Logout", href="__logout__"))
    }
  })
}

shinyApp(ui, server)

因为如果我去掉它，错误就会消失

---

我已经有类似的代码工作了很长一段时间，但它突然停止工作。非常感谢您的帮助。

重新安装Rstudio后，问题已消失。我不知道为什么。

与@homer3018的评论类似，您的环境中可能有多个

标记。尝试使用
htmltools:：tags$head（）
而不仅仅是
tags$head（）
tags$head(tags$style(HTML('.shiny-server-account { display: none; }'))),