用于read.csv的验证

我尝试使用shiny validate函数捕获读取错误，并在读取上载的csv文件时显示自定义错误消息，而不是让shiny转发默认的read.csv错误消息。 下面是简单的代码

validate(need(try(sd <- read.csv(file = sdFile[1], stringsAsFactors = FALSE)), "Error reading the file"))

---

validate（需要）（try（sd我认为它实际上是在打印出来，如果我这样做：

library(shiny)
validate(need(try(sd <- read.csv(file = "mtcars1.csv", 
                                 stringsAsFactors = FALSE)), 
                                 Error reading the file !!!"))

我明白了-注意你的留言在最后一行

您可以使用
supershwarnings
抑制警告，如下所示：

library(shiny)
suppressWarnings(
+ validate(need(try(sd <- read.csv(file = "mtcars1.csv", 
                          stringsAsFactors = FALSE)),
                          "Error reading the file !!!!")))

或者，您可以使用此选项抑制除您的邮件以外的所有内容（使用
tryCatch
而不是
try
）：

谢谢。我认为我的错误与读取csv文件无关，而是其他原因。是的，它应该可以正常工作。
library(shiny)
suppressWarnings(
+ validate(need(try(sd <- read.csv(file = "mtcars1.csv", 
                          stringsAsFactors = FALSE)),
                          "Error reading the file !!!!")))

Error in file(file, "rt") : cannot open the connection
Error: Error reading the file !!!!

library(shiny)
suppressWarnings(
validate(need(tryCatch(sd <- read.csv(file = "mtcars1.csv", 
                             stringsAsFactors = FALSE),      error=function (e){}), 
                             "Error reading the file !!!!")))

 Error: Error reading the file !!!