as.formula is not generic; remove it in favor of just using formula

Author: billdenney

NAMESPACE

@@ -4,7 +4,6 @@ S3method(Math,formula)
 S3method(Ops,formula)
 S3method(formula,substituting_formula)
 export(add_formula)
-export(as.formula.substituting_formula)
 export(as_substituting_formula)
 export(divide_formula)
 export(get_lhs)

R/substituting_formula.R

@@ -52,14 +52,9 @@ as_substituting_formula <- function(x, substitutions) {
 
 #' Convert a substituting_formula object into a regular formula.
 #' 
-#' @param x,object the substituting_formula object
+#' @param x the substituting_formula object
 #' @param ... Ignored
-#' @param env The environment for the resulting formula
 #' @return A formula with values substituted.
-#' @name formula_substituting_formula
-NULL
-
-#' @rdname formula_substituting_formula
 #' @export
 formula.substituting_formula <- function(x, ...) {
   ret <- x$base
@@ -73,11 +68,3 @@ formula.substituting_formula <- function(x, ...) {
   }
   ret
 }
-
-#' @rdname formula_substituting_formula
-#' @export
-as.formula.substituting_formula <- function(object, env=environment(object$base)) {
-  ret <- formula.substituting_formula(object)
-  environment(ret) <- env
-  ret
-}