defined $<- method

closes #190

Author: earowang

NAMESPACE

@@ -2,6 +2,7 @@
 
 S3method("$",interval)
 S3method("$",tbl_ts)
+S3method("$<-",tbl_ts)
 S3method("[",grouped_ts)
 S3method("[",tbl_ts)
 S3method("[[",interval)

R/subset.R

@@ -77,3 +77,12 @@
 
 #' @export
 `[.grouped_ts` <- `[.tbl_ts`
+
+#' @export
+`$<-.tbl_ts` <- function(x, name, value) {
+  if (name %in% c(key_vars(x), index_var(x))) {
+    x <- as_tibble(x)
+    return(NextMethod())
+  }
+  NextMethod()
+}