R - Сохранение предупреждений tryCatch Shiny с помощью read_excel

Question

В моем приложении Shiny я читаю файл Excel с помощью read_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
                 })