diff --git a/R/utils-get_code_dependency.R b/R/utils-get_code_dependency.R index 643e603ec..f1f9dd9c6 100644 --- a/R/utils-get_code_dependency.R +++ b/R/utils-get_code_dependency.R @@ -382,10 +382,12 @@ extract_side_effects <- function(calls_pd) { graph_parser <- function(x, graph) { # normalize x to remove surrounding backticks x <- gsub("^`|`$", "", x) + graph <- lapply(graph, function(call) gsub("^`|`$", "", call)) occurrence <- vapply( - graph, function(call) { + graph, + function(call) { ind <- match("<-", call, nomatch = length(call) + 1L) - x %in% gsub("^`|`$", "", call[seq_len(ind - 1L)]) + x %in% call[seq_len(ind - 1L)] }, logical(1) ) diff --git a/man/cdisc_data.Rd b/man/cdisc_data.Rd index 05f8ee3fe..932c2f736 100644 --- a/man/cdisc_data.Rd +++ b/man/cdisc_data.Rd @@ -29,7 +29,7 @@ Use \code{\link[=verify]{verify()}} to verify code reproducibility .} A \code{teal_data} object. } \description{ -\ifelse{html}{\href{https://lifecycle.r-lib.org/articles/stages.html#stable}{\figure{lifecycle-stable.svg}{options: alt='[Stable]'}}}{\strong{[Stable]}} +\verb{r lifecycle::badge("stable")} Function is a wrapper around \code{\link[=teal_data]{teal_data()}} and guesses \code{join_keys} for given datasets whose names match ADAM datasets names.