Changed mdl_nm to model_cn (model column name)

Related: #96
tidyverts · Aug 1, 2019 · 23b1480 · 23b1480
1 parent 5f4753d
commit 23b1480
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/fable.R b/R/fable.R
@@ -55,7 +55,7 @@ as_fable.tbl_ts <- function(x, response, distribution, ...){
 
   fbl <- new_tsibble(x, class = "fbl_ts",
                      response = response, dist = enexpr(distribution),
-                     mdl_nm = ".model")
+                     model_cn = ".model")
   validate_fable(fbl)
   fbl
 }
@@ -78,7 +78,7 @@ as_fable.grouped_ts <- function(x, response, distribution, ...){
   fbl <- structure(x, class = c("grouped_fbl", "grouped_ts", "grouped_df", 
                                 "fbl_ts", "tbl_ts", "tbl_df", "tbl", "data.frame"),
                    response = response, dist = enexpr(distribution),
-                   mdl_nm = ".model")
+                   model_cn = ".model")
   validate_fable(fbl)
   fbl
 }
@@ -115,7 +115,7 @@ as_tsibble.fbl_ts <- function(x, ...){
 #' @export
 as_tsibble.grouped_fbl <- function(x, ...){
   structure(x, class=setdiff(class(x), c("grouped_fbl", "fbl_ts")),
-            response = NULL, dist = NULL, mdl_nm = NULL)
+            response = NULL, dist = NULL, model_cn = NULL)
 }
 
 validate_fable <- function(fbl){