R tidyr tidyr_legacy 旧名称修复

tidyr_legacy(nms, prefix = "V", sep = "")

df <- tibble(x = 1:2, y = list(tibble(x = 3:5), tibble(x = 4:7)))

# Doesn't work because it would produce a data frame with two
# columns called x
if (FALSE) {
unnest(df, y)
}

# The new tidyverse standard:
unnest(df, y, names_repair = "universal")
#> New names:
#> • `x` -> `x...1`
#> • `x` -> `x...2`
#> # A tibble: 7 × 2
#>   x...1 x...2
#>   <int> <int>
#> 1     1     3
#> 2     1     4
#> 3     1     5
#> 4     2     4
#> 5     2     5
#> 6     2     6
#> 7     2     7

# The old tidyr approach
unnest(df, y, names_repair = tidyr_legacy)
#> # A tibble: 7 × 2
#>       x    x1
#>   <int> <int>
#> 1     1     3
#> 2     1     4
#> 3     1     5
#> 4     2     4
#> 5     2     5
#> 6     2     6
#> 7     2     7