added vec_restore() for grouped_ts

Author: earowang

NAMESPACE

@@ -164,6 +164,7 @@ S3method(vec_cast,tbl_ts.tbl_ts)
 S3method(vec_cast,yearmonth.yearmonth)
 S3method(vec_cast,yearquarter.yearquarter)
 S3method(vec_cast,yearweek.yearweek)
+S3method(vec_proxy,grouped_ts)
 S3method(vec_proxy,tbl_ts)
 S3method(vec_ptype2,Date.yearmonth)
 S3method(vec_ptype2,Date.yearquarter)
@@ -188,6 +189,7 @@ S3method(vec_ptype2,yearweek.yearweek)
 S3method(vec_ptype_abbr,yearmonth)
 S3method(vec_ptype_abbr,yearquarter)
 S3method(vec_ptype_abbr,yearweek)
+S3method(vec_restore,grouped_ts)
 S3method(vec_restore,tbl_ts)
 S3method(year,yearweek)
 S3method(yearmonth,"NULL")

R/vctrs-tsibble.R

@@ -102,3 +102,12 @@ vec_restore.tbl_ts <- function(x, to, ..., n = NULL) {
 vec_proxy.tbl_ts <- function(x, ...) {
   new_data_frame(x)
 }
+
+#' @export
+vec_restore.grouped_ts <- function(x, to, ..., n = NULL) {
+  x <- NextMethod()
+  vec_restore.tbl_ts(x, to)
+}
+
+#' @export
+vec_proxy.grouped_ts <- vec_proxy.tbl_ts