3232# ' @export
3333setGeneric ("eval_code ", function(object, code, cache = FALSE, ...) standardGeneric("eval_code"))
3434
35- setMethod ("eval_code ", signature = c(object = "qenv", code = "ANY" ), function(object, code, cache = FALSE, ...) {
35+ setMethod ("eval_code ", signature = c(object = "qenv"), function(object, code, cache = FALSE, ...) {
3636 code <- .preprocess_code(code ) # preprocess code to ensure it is a character vector
3737 srcref <- attr(code , " wholeSrcref" )
3838 if (is.expression(code ) && length(srcref ) == 0L ) {
@@ -51,7 +51,7 @@ setMethod("eval_code", signature = c(object = "qenv", code = "ANY"), function(ob
5151 .eval_code(object = object , code = code , cache = cache , ... )
5252})
5353
54- setMethod ("eval_code ", signature = c("qenv.error", "ANY "), function(object, code, cache = FALSE, ...) object)
54+ setMethod ("eval_code ", signature = c(object = "qenv.error"), function(object, code, cache = FALSE, ...) object)
5555
5656# ' @keywords internal
5757.eval_code <- function (object , code , cache = FALSE , ... ) {
0 commit comments