Skip to content

Instantly share code, notes, and snippets.

@mine-cetinkaya-rundel

mine-cetinkaya-rundel/unnest_with_nulls.R

Last active July 3, 2019 12:38
Show Gist options
  • Save mine-cetinkaya-rundel/feae197e799831b4befa138a3ea2b3c9 to your computer and use it in GitHub Desktop.
Save mine-cetinkaya-rundel/feae197e799831b4befa138a3ea2b3c9 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
unnest_with_nulls.R
library(tidyr)
library(dplyr, warn.conflicts = FALSE)
library(purrr)
x <- tibble(
v1 = list(NULL),
v2 = list("something"),
v3 = list(NULL)
)
x %>%
mutate_if(is.list, ~ map_if(., is.null, ~ NA)) %>%
unnest(everything())
#> # A tibble: 1 x 3
#> v1 v2 v3
#> <lgl> <chr> <lgl>
#> 1 NA something NA
devtools::session_info()
#> ─ Session info ──────────────────────────────────────────────────────────
#> setting value
#> version R version 3.6.0 (2019-04-26)
#> os macOS Mojave 10.14.5
#> system x86_64, darwin15.6.0
#> ui X11
#> language (EN)
#> collate en_US.UTF-8
#> ctype en_US.UTF-8
#> tz Europe/Paris
#> date 2019-07-03
#>
#> ─ Packages ──────────────────────────────────────────────────────────────
#> package * version date lib
#> assertthat 0.2.1 2019-03-21 [1]
#> backports 1.1.4 2019-04-10 [1]
#> callr 3.2.0 2019-03-15 [1]
#> cli 1.1.0 2019-03-19 [1]
#> crayon 1.3.4 2017-09-16 [1]
#> desc 1.2.0 2018-05-01 [1]
#> devtools 2.0.2 2019-04-08 [1]
#> digest 0.6.19 2019-05-20 [1]
#> dplyr * 0.8.2 2019-06-29 [1]
#> evaluate 0.14 2019-05-28 [1]
#> fansi 0.4.0 2018-10-05 [1]
#> fs 1.3.1 2019-05-06 [1]
#> glue 1.3.1 2019-03-12 [1]
#> highr 0.8 2019-03-20 [1]
#> htmltools 0.3.6 2017-04-28 [1]
#> knitr 1.23 2019-05-18 [1]
#> magrittr 1.5 2014-11-22 [1]
#> memoise 1.1.0 2017-04-21 [1]
#> pillar 1.4.2 2019-06-29 [1]
#> pkgbuild 1.0.3 2019-03-20 [1]
#> pkgconfig 2.0.2 2018-08-16 [1]
#> pkgload 1.0.2 2018-10-29 [1]
#> prettyunits 1.0.2 2015-07-13 [1]
#> processx 3.3.1 2019-05-08 [1]
#> ps 1.3.0 2018-12-21 [1]
#> purrr * 0.3.2 2019-03-15 [1]
#> R6 2.4.0 2019-02-14 [1]
#> Rcpp 1.0.1 2019-03-17 [1]
#> remotes 2.0.4 2019-04-10 [1]
#> rlang 0.4.0.9000 2019-07-03 [1]
#> rmarkdown 1.13.6 2019-07-03 [1]
#> rprojroot 1.3-2 2018-01-03 [1]
#> sessioninfo 1.1.1 2018-11-05 [1]
#> stringi 1.4.3 2019-03-12 [1]
#> stringr 1.4.0 2019-02-10 [1]
#> testthat 2.1.1 2019-04-23 [1]
#> tibble 2.1.3 2019-06-06 [1]
#> tidyr * 0.8.3.9000 2019-07-03 [1]
#> tidyselect 0.2.5 2018-10-11 [1]
#> usethis 1.5.0 2019-04-07 [1]
#> utf8 1.1.4 2018-05-24 [1]
#> vctrs 0.2.0 2019-07-03 [1]
#> withr 2.1.2 2018-03-15 [1]
#> xfun 0.8 2019-06-25 [1]
#> yaml 2.2.0 2018-07-25 [1]
#> zeallot 0.1.0 2018-01-28 [1]
#> source
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> Github (r-lib/rlang@fc1aae2)
#> Github (rstudio/rmarkdown@5335b69)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> Github (tidyverse/tidyr@dc01c83)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> Github (r-lib/vctrs@5edf2c0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#> CRAN (R 3.6.0)
#>
#> [1] /Library/Frameworks/R.framework/Versions/3.6/Resources/library
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment