Handle text syntax for .period in features()

Ref #371
tidyverts · Oct 27, 2022 · f8a8baa · f8a8baa
1 parent 9a1e6fd
commit f8a8baa
Showing 1 changed file with 1 addition and 3 deletions.
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)