shinyがread.csvを検証しました

Question

光沢のある検証機能を使用して読み込みエラーをキャプチャし、アップロードされたcsvファイルを読み込んだときにカスタマイズされたエラーメッセージを表示しようとしています。ここ は、単純なコード

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

csvファイルには、フォーマットの問題が存在しない場合、コードは正常に動作しています。しかし、csvファイルに問題がある場合、コードはデフォルトのエラーメッセージ（赤いフォント）を返します。たとえば、エラー：未定義の列が選択されていますが、カスタマイズされたメッセージは表示されません。ここに問題はありますか？ありがとう！

Answer 1

私はこれを行う場合、それは実際に、それをプリントアウトされると思う：

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

は降伏：

Error in file(file, "rt") : cannot open the connection 
In addition: Warning message: 
In file(file, "rt") : 
    cannot open file 'mtcars1.csv': No such file or directory 
Error: Error reading the file !!! 

を私はこれを得る - あなたのメッセージは、最後の行にある注意してください。

あなたはこのようなsupressWarningsで警告を抑制することができます得

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 !!!! 

それとも、（代わりにtryのtryCatchを使用しています）これであなたのメッセージ以外のすべてをSUPRESSことができた：

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 !!!