minor tweak in bind_tsibble()

earowang · earowang · commit c8ed20af166e · 2020-05-31T21:11:16.000+12:00
diff --git a/R/update.R b/R/update.R
@@ -82,7 +82,7 @@ bind_tsibble <- function(data, template, position = c("before", "after")) {
   }
   tsbl_vars <- setdiff(c(index_var(template), key_vars(template)), data_cols)
   if (position == "before") {
-    res <- bind_cols(template[tsbl_vars], data)
+    res <- bind_cols(as_tibble(template)[tsbl_vars], data)
   } else {
     res <- bind_cols(data, template[tsbl_vars])
   }

Original file line number	Diff line number	Diff line change
`@@ -82,7 +82,7 @@ bind_tsibble <- function(data, template, position = c("before", "after")) {`
`82`	`82`	`}`
`83`	`83`	`tsbl_vars <- setdiff(c(index_var(template), key_vars(template)), data_cols)`
`84`	`84`	`if (position == "before") {`
`85`		`- res <- bind_cols(template[tsbl_vars], data)`
	`85`	`+ res <- bind_cols(as_tibble(template)[tsbl_vars], data)`
`86`	`86`	`} else {`
`87`	`87`	`res <- bind_cols(data, template[tsbl_vars])`
`88`	`88`	`}`