Remove unique.formula.names() to avoid S3 confusion

This isn't used and isn't exported. See #375.
joshuaulrich · Mar 21, 2023 · 73c6c8e · 73c6c8e
1 parent 1bdc78f
commit 73c6c8e
Showing 1 changed file with 0 additions and 8 deletions.
diff --git a/R/specifyModel.R b/R/specifyModel.R
@@ -83,14 +83,6 @@ function(formula,na.rm=TRUE) {
   return(new.quantmod);
 }
 
-# used potentially for chartSeries parsing - where a model.frame is unecessary
-`unique.formula.names` <-
-function(x) {
-  tm <- attr(terms(x),'variables')
-  name.list <- lapply(tm, function(y) paste(make.names(y),collapse=''))[-1]
-  unlist(lapply(name.list, function(x) gsub('\\.+','.',x)))
-}
-
 `make.short.names` <-
 function(x) {
   gsub('\\.+','.',make.names(colnames(model.frame(x))))