从R控制台隐藏警告

当我运行闪亮的应用程序时，我试图从控制台隐藏警告 我试着把它添加到我的ui中

tags$style(type="text/css",
         ".shiny-output-error { visibility: hidden; }",
         ".shiny-output-error:before { visibility: hidden; }"
)

但它不起作用 请帮忙

---

提前感谢

您发布的

css

是为了防止红色错误消息显示在闪亮的应用程序上

当其他人从R/RStudio自己运行应用程序时，要禁止警告消息显示在控制台中，最灵活的方法可能是使用

选项（warn=-1）

。另请参见

？警告

。然后，您可以在希望查看警告时将其覆盖到

选项（warn=0）

。
在这种情况下，建议您在应用程序退出时（请参见

？on.exit

），确保使用

选项（warn=0）

将警告级别设置回零（实际上比以前更好），否则可能会混淆用户

---

另一种选择是使用注释链接中建议的

suppressWarnings

，这在这方面更安全。您仍然可以使它依赖于一个选项，以便您可以为自己的目的覆盖它。

这可能不是隐藏这些红色错误消息的最佳方式。您可能会看到一些输出依赖于尚未定义的输入

请参阅下面的此应用程序：

library(shiny)

ui <- fluidPage(
  selectInput("datasetName", "Dataset", c("", "pressure", "cars")),
  plotOutput("plot"),
  tableOutput("table")
)

server <- function(input, output, session) {
  dataset <- reactive({
    get(input$datasetName, "package:datasets", inherits = FALSE)
  })

  output$plot <- renderPlot({
    plot(dataset())
  })

  output$table <- renderTable({
    head(dataset(), 10)
  })
}

shinyApp(ui, server)

---

欢迎来到SO。请发布您的错误消息。可能重复的错误消息有许多警告。。其中之一是警告：弄乱以下名称：。。。。使用enc2native（）避免出现警告。（该应用程序包含阿拉伯字符，此警告多次出现）感谢您的回答。很抱歉，我不明白应该在哪里添加选项（warn=-1）取决于您的设置-如果您使用

global.R

文件，您可以将其放在那里，如果您有一个带有

ui

、

服务器

和

runApp（）

的文件，你可以把它放在最上面，然后我认为你需要在问题中展示更多的设置/代码，这样我们可以更好地理解这里可能出现的错误。否则很难帮助你

library(shiny)

ui <- fluidPage(
  selectInput("datasetName", "Dataset", c("", "pressure", "cars")),
  plotOutput("plot"),
  tableOutput("table")
)

server <- function(input, output, session) {
  dataset <- reactive({
    req(input$datasetName) # add req
    get(input$datasetName, "package:datasets", inherits = FALSE)
  })

  output$plot <- renderPlot({
    plot(dataset())
  })

  output$table <- renderTable({
    head(dataset(), 10)
  })
}

shinyApp(ui, server)