Exact the "output" as a new column from a `collateral` class column [question] about collateral HOT 4 CLOSED

test %>% mutate(res = map(converted_date_log, "result"))
# # A tibble: 6 × 3
#   test_date  converted_date_log res       
#   <list>     <collat>           <list>    
# 1 <chr [1]>  R _ _ _ _          <date [1]>
# 2 <chr [1]>  R _ _ W _          <date [1]>
# 3 <dttm [1]> R _ _ _ _          <date [1]>
# 4 <lgl [1]>  R _ _ _ _          <lgl [1]> 
# 5 <dbl [1]>  R _ _ W _          <date [1]>
# 6 <chr [1]>  R _ _ W _          <date [1]>

test %>% mutate(res = map_vec(converted_date_log, "result"))
# # A tibble: 6 × 3
#   test_date  converted_date_log res       
#   <list>     <collat>           <date>    
# 1 <chr [1]>  R _ _ _ _          2022-10-25
# 2 <chr [1]>  R _ _ W _          NA        
# 3 <dttm [1]> R _ _ _ _          2022-10-07
# 4 <lgl [1]>  R _ _ _ _          NA        
# 5 <dbl [1]>  R _ _ W _          NA        
# 6 <chr [1]>  R _ _ W _          NA 

test %>% mutate(
  err = map_chr(converted_date_log, c("error", "message"), .default = NA_character_))
# # A tibble: 6 × 3
#   test_date  converted_date_log err  
#   <list>     <collat>           <chr>
# 1 <chr [1]>  R _ _ _ _          NA   
# 2 <chr [1]>  R _ _ W _          NA   
# 3 <dttm [1]> R _ _ _ _          NA   
# 4 <lgl [1]>  R _ _ _ _          NA   
# 5 <dbl [1]>  R _ _ W _          NA   
# 6 <chr [1]>  R _ _ W _          NA

test %>% mutate(
  warn = map_chr(converted_date_log, "warnings", .default = NA_character_))
# Error in `mutate()`:
# ! Problem while computing `warn =
#   map_chr(converted_date_log, "warnings",
#   .default = NA_character_)`.
# Caused by error in `map_chr()`:
# ℹ In index: 1.
# Caused by error:
# ! Result must be length 1, not 0.
# Run `rlang::last_error()` to see where the error occurred.