diff --git a/R/rudf.R b/R/rudf.R index da9162ca..c5d1b82d 100644 --- a/R/rudf.R +++ b/R/rudf.R @@ -136,6 +136,12 @@ rxRmFunParse <- function(name) { } .rxD <- rxode2parse::rxode2parseD() if (exists(name, envir = .rxD)) { + if (!grepl("^rx_", name)) { + .d <- get(name, envir=.rxD) + lapply(names(formals(.d[[1]])), function(v) { + suppressWarnings(rxRmFunParse(paste0("rx_", name, "_d_", v))) + }) + } rm(list = name, envir = .rxD) } if (exists(name, envir = .udfEnv$symengineFs)) {