Handle text syntax for .period in features()

mitchelloharawild · mitchelloharawild · commit f8a8baab1e40 · 2022-10-27T22:59:39.000+11:00
Ref #371
diff --git a/R/features.R b/R/features.R
@@ -6,9 +6,7 @@ features_impl <- function(.tbl, .var, features, ...){
   }
   features <- map(squash(features), as_function)
   
-  if(is.null(dots$.period)){
-    dots$.period <- get_frequencies(NULL, .tbl, .auto = "smallest")
-  }
+  dots$.period <- get_frequencies(dots$.period, .tbl, .auto = "smallest")
   
   # Compute response
   key_dt <- key_data(.tbl)

Original file line number	Diff line number	Diff line change
`@@ -6,9 +6,7 @@ features_impl <- function(.tbl, .var, features, ...){`
`6`	`6`	`}`
`7`	`7`	`features <- map(squash(features), as_function)`
`8`	`8`
`9`		`- if(is.null(dots$.period)){`
`10`		`- dots$.period <- get_frequencies(NULL, .tbl, .auto = "smallest")`
`11`		`- }`
	`9`	`+ dots$.period <- get_frequencies(dots$.period, .tbl, .auto = "smallest")`
`12`	`10`
`13`	`11`	`# Compute response`
`14`	`12`	`key_dt <- key_data(.tbl)`