bad_df.rds

df_unnest.R

library(tibble)
library(tidyr)

df <- tibble(
  dataset = c("ec_climate", "ec_climate"),
  location = c("KENTVILLE CDA CS NS 27141", "KENTVILLE CDA CS NS 27141"),
  result = list(
    tibble(
      `Max Temp Flag` = character(0),
      `Min Temp (°C)` = character(0),
      `Min Temp Flag` = character(0),
      `Mean Temp (°C)` = character(0)
    ),
    tibble(
      `Max Temp Flag` = rep(NA_character_, 6),
      `Min Temp (°C)` = rep(NA_character_, 6),
      `Min Temp Flag` = rep(NA_character_, 6),
      `Mean Temp (°C)` = rep(NA_character_, 6)
    )
  )
)

unnest(df, result)

bad_df_file <- tempfile(fileext = ".rds")
curl::curl_download(
  "https://gist.github.com/paleolimbot/ec9b62b758ae57a5b4669fa771fc40a0/raw/e96b55f54d68b1cb3877bb358b28b99dc8836ceb/bad_df.rds",
  bad_df_file
)
df2 <- readr::read_rds(bad_df_file)
df2$result <- lapply(df2$result, function(x) {
  attr(x, "flag_info") <- NULL
  x
})

testthat::expect_identical(df, df2)
unnest(df2, result)

library(tibble)
library(tidyr)

df <- tibble(
  dataset = c("ec_climate", "ec_climate"),
  location = c("KENTVILLE CDA CS NS 27141", "KENTVILLE CDA CS NS 27141"),
  result = list(
    tibble(
      `Max Temp Flag` = character(0),
      `Min Temp (°C)` = character(0),
      `Min Temp Flag` = character(0),
      `Mean Temp (°C)` = character(0)
    ),
    tibble(
      `Max Temp Flag` = rep(NA_character_, 6),
      `Min Temp (°C)` = rep(NA_character_, 6),
      `Min Temp Flag` = rep(NA_character_, 6),
      `Mean Temp (°C)` = rep(NA_character_, 6)
    )
  )
)

unnest(df, result)
#> # A tibble: 6 x 6
#>   dataset location `Max Temp Flag` `Min Temp (°C)` `Min Temp Flag`
#>   <chr>   <chr>    <chr>           <chr>           <chr>          
#> 1 ec_cli… KENTVIL… <NA>            <NA>            <NA>           
#> 2 ec_cli… KENTVIL… <NA>            <NA>            <NA>           
#> 3 ec_cli… KENTVIL… <NA>            <NA>            <NA>           
#> 4 ec_cli… KENTVIL… <NA>            <NA>            <NA>           
#> 5 ec_cli… KENTVIL… <NA>            <NA>            <NA>           
#> 6 ec_cli… KENTVIL… <NA>            <NA>            <NA>           
#> # … with 1 more variable: `Mean Temp (°C)` <chr>

bad_df_file <- tempfile(fileext = ".rds")
curl::curl_download(
  "https://gist.github.com/paleolimbot/ec9b62b758ae57a5b4669fa771fc40a0/raw/e96b55f54d68b1cb3877bb358b28b99dc8836ceb/bad_df.rds",
  bad_df_file
)
df2 <- readr::read_rds(bad_df_file)
df2$result <- lapply(df2$result, function(x) {
  attr(x, "flag_info") <- NULL
  x
})

testthat::expect_identical(df, df2)
unnest(df2, result)
#> Column names `Min Temp (°C)`, `Mean Temp (°C)` must not be duplicated.
#> Use .name_repair to specify repair.

^{Created on 2019-08-29 by the reprex package (v0.2.1)}