@@ -90,24 +90,24 @@ vec_cast.data.frame.tbl_ts <- function(x, to, ...) {
9090 df_cast(x , to , ... )
9191}
9292
93- # ' @export
94- vec_restore.tbl_ts <- function (x , to , ... , n = NULL ) {
95- # assuming `i` in order and no duplicates, minimal check for performance reason
96- build_tsibble(x ,
97- key = key_vars(to ), index = index_var(to ), index2 = index2_var(to ),
98- ordered = TRUE , validate = FALSE , .drop = key_drop_default(to ))
99- }
100-
101- # ' @export
102- vec_proxy.tbl_ts <- function (x , ... ) {
103- new_data_frame(x )
104- }
105-
106- # ' @export
107- vec_restore.grouped_ts <- function (x , to , ... , n = NULL ) {
108- x <- NextMethod()
109- vec_restore.tbl_ts(x , to )
110- }
111-
112- # ' @export
113- vec_proxy.grouped_ts <- vec_proxy.tbl_ts
93+ # # ' @export
94+ # vec_restore.tbl_ts <- function(x, to, ..., n = NULL) {
95+ # # assuming `i` in order and no duplicates, minimal check for performance reason
96+ # build_tsibble(x,
97+ # key = key_vars(to), index = index_var(to), index2 = index2_var(to),
98+ # ordered = TRUE, validate = FALSE, .drop = key_drop_default(to))
99+ # }
100+ #
101+ # # ' @export
102+ # vec_proxy.tbl_ts <- function(x, ...) {
103+ # new_data_frame(x)
104+ # }
105+ #
106+ # # ' @export
107+ # vec_restore.grouped_ts <- function(x, to, ..., n = NULL) {
108+ # x <- NextMethod()
109+ # vec_restore.tbl_ts(x, to)
110+ # }
111+ #
112+ # # ' @export
113+ # vec_proxy.grouped_ts <- vec_proxy.tbl_ts
0 commit comments