handle code with single call in split_code

Author: m7pr

R/utils-get_code_dependency.R

@@ -488,7 +488,10 @@ get_call_breaks <- function(code) {
 #' @noRd
 split_code <- function(code) {
   call_breaks <- get_call_breaks(code)
-  call_breaks <- call_breaks[order(call_breaks[, "line"], call_breaks[, "col"]), , drop = FALSE]
+  if (nrow(call_breaks) == 1) {
+    return(code)
+  }
+  call_breaks <- call_breaks[order(call_breaks[, "line"], call_breaks[, "col"]), ]
   code_split <- strsplit(code, split = "\n", fixed = TRUE)[[1]]
   char_count_lines <- c(0, cumsum(sapply(code_split, nchar, USE.NAMES = FALSE) + 1), -1)[seq_along(code_split)]