diff --git a/R/generics.R b/R/generics.R index 107daca29822b63183b1887edaba267d7d3bccb1..44e90c92d7730ac494ad5d9119e89b217a5dda7f 100644 --- a/R/generics.R +++ b/R/generics.R @@ -28,7 +28,7 @@ as_node.default <- function(x, ...){ node_name <- "" params <- list(...) - if(any(grep("$", deparse(substitute(x))))){ + if(any(grep("\\$", deparse(substitute(x))))){ node_name <- strsplit(deparse(substitute(x)), "$", fixed = TRUE)[[2]] }else if(length(params) > 0){ assertthat::assert_that(assertthat::is.string(params[[1]]))