Hello,

I have this example below which is working but I feel like there needs to be a cleaner way to do with `purrr`

or `map`

or something. Any idea how to get the same output?

```
L1 <-list(a = list(c(1:5,NA,NA),NA,c(NA,6:10)),
b = list(c(1:5,NA,NA),NA,c(NA,6:10)))
lapply(L1, function(x) {
sapply(x,simplify = FALSE, function(y){
replace(y,is.na(y),"")
}
)
})
#> $a
#> $a[[1]]
#> [1] "1" "2" "3" "4" "5" "" ""
#>
#> $a[[2]]
#> [1] ""
#>
#> $a[[3]]
#> [1] "" "6" "7" "8" "9" "10"
#>
#>
#> $b
#> $b[[1]]
#> [1] "1" "2" "3" "4" "5" "" ""
#>
#> $b[[2]]
#> [1] ""
#>
#> $b[[3]]
#> [1] "" "6" "7" "8" "9" "10"
```

^{Created on 2021-06-25 by the reprex package (v2.0.0)}