时间戳

首页 > 解决方案 > 如何处理“pmap”错误和“安全”包装的函数的结果输出。不能取消嵌套

r - 如何处理“pmap”错误和“安全”包装的函数的结果输出。不能取消嵌套

问题描述

我经常使用 PURRR 的 pmap 函数在输入表的行上应用函数并内联检索它们。最近我开始使用“安全”的函数，它包裹着我在 pmap 函数中应用的函数。这很好用，但是当输出列中的错误和结果都可用时，我很难弄清楚如何处理它的输出。

我想内联提取错误“消息”对象，但是由于 NA 和错误的混合，这似乎是不可能的？有谁知道如何做到这一点？

library(tidyverse) 
library(openxlsx)

example_data <- tribble(~input_col,  
                        r"(C:\Users\Documents\example data.xlsx)", 
                        r"(C:\does not exist.xlsx)")

result <- example_data %>% 
  mutate(function_output = pmap(list(xlsxFile = input_col), safely(read.xlsx)))

#returns result and error columns
result %>% 
  unnest_wider(col = function_output, names_sep='_') %>%
  View()

#does not return the error message?
result %>% 
  unnest_wider(col = function_output) %>% 
  mutate(error_message=error$message) %>%
  View()

# This seems to extract all the items from the list object but does not preserve table structure
result %>% unnest_wider(col = function_output) %>% 
  mutate(across(where(is.list) & starts_with("error"), flatten)) %>% 
  View()

标签： rerror-handlingtidyversepurrr

解决方案

使用map和pluck-

library(tidyverse)

result %>% 
  unnest_wider(col = function_output) %>% 
  mutate(error_message = map(error, pluck, 'message'))

或者 -

result %>% 
  unnest_wider(col = function_output) %>% 
  mutate(error_message = map_chr(error, 
         ~if(is.null(.x)) NA_character_ else .x$message))

#  input_col           result        error      error_message       
#  <chr>               <list>        <list>     <chr>               
#1 result.xlsx         <df [3 × 12]> <NULL>     NA                  
#2 does not exist.xlsx <NULL>        <smplErrr> File does not exist.

推荐阅读