Есть ли возможность удалить сообщение об ошибке

Question

в приведенном ниже приложении, есть ли способ избавиться от сообщения об ошибке красного цвета? как всякий раз, когда появляется сообщение об ошибке, мы можем потребовать, чтобы там ничего не печаталось (просто пусто). Можно ли добиться .........................

---
title: "Untitled"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(dplyr)
library(DT)
library(dplyr)
library(shiny)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
selectInput("Tic", "", choices = c("", "ALL", as.character(iris$Species)), selected = NULL)
actionButton("Submit", "Submit")
textOutput("Total")
tableOutput("SUMMARY_GENERAL_table")


data2 <- reactiveVal(iris[1:2, ])

observeEvent(input$Submit, {
  if (input$Tic == "") {
    table_display <- iris[1:2, ]
  } else if (input$Tic == "ALL") {
    table_display <- iris
  }  else {
    table_display <- iris %>% filter(Species %in% input$Tic)
  }

  data2(table_display)
})


output$SUMMARY_GENERAL_table <- renderTable({
  data2()
})

output$Total <- renderText(
  paste0("Sum ", formatC(as.numeric(sum(data2()[(data2()$Species == "virginica"), ]$Species))))
)
```

Answer 1

Как упомянуто выше в smurfit89, это вообще не очень хорошая идея. Тем не менее, есть некоторые ситуации, когда это было бы хорошо, например, если вы уже знаете, это даст.

Если вы настаиваете на этом, простой способ сделать это - suppressWarnings(expr)