From 4fe2caab83df000c60512d566a874aafe6c9b9e6 Mon Sep 17 00:00:00 2001
From: aheinri5 <Anna@netzkritzler.de>
Date: Thu, 19 Nov 2020 23:10:30 +0100
Subject: [PATCH] Fixed a bug caused by not escaping dollar sign
---
R/generics.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/generics.R b/R/generics.R
index 107daca..44e90c9 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]]))
--
GitLab