do not supply n in new_data_frame()

earowang · earowang · commit debd6189f2e8 · 2020-05-31T20:53:22.000+12:00
diff --git a/R/as-tsibble.R b/R/as-tsibble.R
@@ -506,7 +506,7 @@ as_tibble.grouped_df <- function(x, ...) {
 #' @keywords internal
 #' @export
 as.data.frame.tbl_ts <- function(x, row.names = NULL, optional = FALSE, ...) {
-  new_data_frame(vec_data(x), n = nrow(x))
+  new_data_frame(vec_data(x))
 }
 
 #' Test duplicated observations determined by key and index variables

Original file line number	Diff line number	Diff line change
`@@ -506,7 +506,7 @@ as_tibble.grouped_df <- function(x, ...) {`
`506`	`506`	`#' @keywords internal`
`507`	`507`	`#' @export`
`508`	`508`	`as.data.frame.tbl_ts <- function(x, row.names = NULL, optional = FALSE, ...) {`
`509`		`- new_data_frame(vec_data(x), n = nrow(x))`
	`509`	`+ new_data_frame(vec_data(x))`
`510`	`510`	`}`
`511`	`511`
`512`	`512`	`#' Test duplicated observations determined by key and index variables`