fix

gogonzo · gogonzo · commit 7d3138b09504 · 2024-10-31T15:23:53.000+01:00
diff --git a/R/utils-get_code_dependency.R b/R/utils-get_code_dependency.R
@@ -473,7 +473,7 @@ get_call_breaks <- function(code) {
       matrix(c(max(x$line2), max(x$col2)))
     }
   ))
-  if (nrow(call_breaks) > 1) call_breaks <- call_breaks[-nrow(call_breaks), ] # breaks in between needed only
+  call_breaks <- call_breaks[-nrow(call_breaks), ] # breaks in between needed only
   colnames(call_breaks) <- c("line", "col")
   call_breaks
 }
@@ -488,7 +488,7 @@ get_call_breaks <- function(code) {
 #' @noRd
 split_code <- function(code) {
   call_breaks <- get_call_breaks(code)
-  if (nrow(call_breaks) == 1) {
+  if (nrow(call_breaks) == 0) {
     return(code)
   }
   call_breaks <- call_breaks[order(call_breaks[, "line"], call_breaks[, "col"]), ]

Original file line number	Diff line number	Diff line change
`@@ -473,7 +473,7 @@ get_call_breaks <- function(code) {`
`473`	`473`	`matrix(c(max(x$line2), max(x$col2)))`
`474`	`474`	`}`
`475`	`475`	`))`
`476`		`- if (nrow(call_breaks) > 1) call_breaks <- call_breaks[-nrow(call_breaks), ] # breaks in between needed only`
	`476`	`+ call_breaks <- call_breaks[-nrow(call_breaks), ] # breaks in between needed only`
`477`	`477`	`colnames(call_breaks) <- c("line", "col")`
`478`	`478`	`call_breaks`
`479`	`479`	`}`
`@@ -488,7 +488,7 @@ get_call_breaks <- function(code) {`
`488`	`488`	`#' @noRd`
`489`	`489`	`split_code <- function(code) {`
`490`	`490`	`call_breaks <- get_call_breaks(code)`
`491`		`- if (nrow(call_breaks) == 1) {`
	`491`	`+ if (nrow(call_breaks) == 0) {`
`492`	`492`	`return(code)`
`493`	`493`	`}`
`494`	`494`	`call_breaks <- call_breaks[order(call_breaks[, "line"], call_breaks[, "col"]), ]`