Issue with gather and time intervals

[urskalbitzer]

I am trying to use gather with a data frame that contains one column with intervals created with lubridate::interval.

Sys.setenv(TZ = "Canada/Eastern")
library(lubridate, warn.conflicts = FALSE)
library(tidyr)
library(dplyr, warn.conflicts = FALSE)

df <- tibble(period = interval(as.Date("2010-01-01"), as.Date("2010-02-01")),
             var1 = 1,
             var2 = 2)

gather(df, var_name, var_value, var1, var2)
#> # A tibble: 2 x 3
#>                           period var_name var_value
#>                   <S4: Interval>    <chr>     <dbl>
#> 1 2010-01-01 UTC--2010-02-01 UTC     var1         1
#> 2                         NA--NA     var2         2

[hadley]

Slightly smaller reprex:

library(lubridate, warn.conflicts = FALSE)
library(tidyr)

df <- tibble::tibble(
  y = interval(ymd("2010-01-01"), ymd("2010-02-01")),
  x1 = 1,
  x2 = 2
)

gather(df, "key", "value", -y)
#> # A tibble: 2 x 3
#>                                y   key value
#>                   <S4: Interval> <chr> <dbl>
#> 1 2010-01-01 UTC--2010-02-01 UTC    x1     1
#> 2                         NA--NA    x2     2

Created on 2017-11-17 by the reprex package
(0.1.1.9000).

[hadley]

This is resolved in the new pivot() function:

library(lubridate, warn.conflicts = FALSE)
library(tidyr)

df <- tibble::tibble(
  y = interval(ymd("2010-01-01"), ymd("2010-02-01")),
  x1 = 1,
  x2 = 2
)

df %>% pivot(pivot_spec_long(df, -y))
#> # A tibble: 2 x 3
#>   y                              variable value
#>   <S4: Interval>                 <chr>    <dbl>
#> 1 2010-01-01 UTC--2010-02-01 UTC x1           1
#> 2 2010-01-01 UTC--2010-02-01 UTC x2           2

^{Created on 2019-03-03 by the reprex package (v0.2.1.9000)}