resubmit to cran

Author: earowang

Diff for: CRAN-RELEASE

@@ -1,2 +1,2 @@
-This package was submitted to CRAN on 2020-06-01.
-Once it is accepted, delete this file and tag the release (commit c8ed20af16).
+This package was submitted to CRAN on 2020-06-03.
+Once it is accepted, delete this file and tag the release (commit c837e83961).

Diff for: NAMESPACE

@@ -164,8 +164,6 @@ 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)
 S3method(vec_ptype2,Date.yearweek)
@@ -189,8 +187,6 @@ 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")
 S3method(yearmonth,Date)

Diff for: R/vctrs-tsibble.R

@@ -90,24 +90,24 @@ vec_cast.data.frame.tbl_ts <- function(x, to, ...) {
   df_cast(x, to, ...)
 }
 
-#' @export
-vec_restore.tbl_ts <- function(x, to, ..., n = NULL) {
-  # assuming `i` in order and no duplicates, minimal check for performance reason
-  build_tsibble(x,
-    key = key_vars(to), index = index_var(to), index2 = index2_var(to),
-    ordered = TRUE, validate = FALSE, .drop = key_drop_default(to))
-}
-
-#' @export
-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
+# #' @export
+# vec_restore.tbl_ts <- function(x, to, ..., n = NULL) {
+#   # assuming `i` in order and no duplicates, minimal check for performance reason
+#   build_tsibble(x,
+#     key = key_vars(to), index = index_var(to), index2 = index2_var(to),
+#     ordered = TRUE, validate = FALSE, .drop = key_drop_default(to))
+# }
+#
+# #' @export
+# 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