Skip to content

Commit

Permalink
resubmit to cran
Browse files Browse the repository at this point in the history
  • Loading branch information
earowang committed Jun 3, 2020
1 parent c837e83 commit 09abfdb
Show file tree
Hide file tree
Showing 3 changed files with 23 additions and 27 deletions.
4 changes: 2 additions & 2 deletions 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).
4 changes: 0 additions & 4 deletions NAMESPACE
Expand Up @@ -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)
Expand All @@ -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)
Expand Down
42 changes: 21 additions & 21 deletions R/vctrs-tsibble.R
Expand Up @@ -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

0 comments on commit 09abfdb

Please sign in to comment.