R-使用read_excel存储tryCatch Shiny警告

Question

在我的Shiny应用程序中，我正在用read_Excel读取Excel文件。如果在上传过程中出现警告，我需要捕获列表中的所有警告，以便进一步处理列表。然而，目前使用tryCatch的方法不起作用。这是我的代码(在Shiny服务器模块中(：

data <- reactive({(
req(input$file1)
inFile <- input$file1
browser()
data <- tryCatch(read_excel(inFile$datapath, 1), 
warning <- function(war){
message(war)
})    
})

非常感谢！

Answer 1

我做了以下操作：创建了一个新的对象警告并将警告存储在对象中，我正在处理这个对象，然后

warn <- tryCatch(read_excel(inFile$datapath, 1), 
warning = function(war){
war
})