Применение нескольких функций из пакета к сгруппированным данным

Question

Я хотел бы применять некоторые функции по мере поступления. У меня есть некоторые данные, подобные следующим:

weather <- nycflights13::weather %>% 
  select(origin, time_hour, temp)

library(tsfeatures)
functions <- ls("package:tsfeatures")[1:42]
functions <- sample(functions, 2)

Данные выглядят следующим образом:

# A tibble: 26,115 x 3
   origin time_hour                   temp
   <chr>  <dttm>                     <dbl>
 1 EWR    2013-01-01 01:00:00.000000  39.0
 2 EWR    2013-01-01 02:00:00.000000  39.0
 3 EWR    2013-01-01 03:00:00.000000  39.0
 4 EWR    2013-01-01 04:00:00.000000  39.9
 5 EWR    2013-01-01 05:00:00.000000  39.0
 6 EWR    2013-01-01 06:00:00.000000  37.9
 7 EWR    2013-01-01 07:00:00.000000  39.0
 8 EWR    2013-01-01 08:00:00.000000  39.9
 9 EWR    2013-01-01 09:00:00.000000  39.9
10 EWR    2013-01-01 10:00:00.000000  41  
# ... with 26,105 more rows

Где я хочу отобразить functions данные о погоде (используя значения по умолчанию для функции tsfunction)

Не работает следующее:

weather %>%
  group_by(origin) %>%
  nest() %>%
  mutate(
    tsdata = map(data ~zoo::rollapply(functions(temp)))
  )