Merge pull request #87 from atorus-research/82.vedha-add-tests-for-la…

…bel-functions Adding test cases for label functions and fix existing test warnings
atorus-research · Apr 28, 2023 · d217dec · d217dec
2 parents 8daf683 + 935c219
commit d217dec
Show file tree

Hide file tree

Showing 2 changed files with 495 additions and 100 deletions.
diff --git a/R/utils-xportr.R b/R/utils-xportr.R
@@ -244,7 +244,7 @@ xpt_validate <- function(data) {
 #' @return The R Object at the top of a pipe stack
 #' @noRd
 get_pipe_call <- function() {
-  call_strs <- map_chr(sys.calls(), as_label)
+  call_strs <- map_chr(as.list(sys.calls()), as_label)
   top_call <- min(which(str_detect(call_strs, "%>%")))
   call_str <- as_label(sys.calls()[[top_call]])
   trimws(strsplit(call_str, "%>%", fixed = TRUE)[[1]][[1]])