add drop FALSE to split_code

m7pr · m7pr · commit 39363c61ddf6 · 2024-10-31T15:31:43.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)))
     }
   ))
-  call_breaks <- call_breaks[-nrow(call_breaks), ] # breaks in between needed only
+  call_breaks <- call_breaks[-nrow(call_breaks), , drop = FALSE] # breaks in between needed only
   colnames(call_breaks) <- c("line", "col")
   call_breaks
 }
@@ -491,7 +491,7 @@ split_code <- function(code) {
   if (nrow(call_breaks) == 0) {
     return(code)
   }
-  call_breaks <- call_breaks[order(call_breaks[, "line"], call_breaks[, "col"]), ]
+  call_breaks <- call_breaks[order(call_breaks[, "line"], call_breaks[, "col"]), , drop = FALSE]
   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)]
 

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`		`- call_breaks <- call_breaks[-nrow(call_breaks), ] # breaks in between needed only`
	`476`	`+ call_breaks <- call_breaks[-nrow(call_breaks), , drop = FALSE] # breaks in between needed only`
`477`	`477`	`colnames(call_breaks) <- c("line", "col")`
`478`	`478`	`call_breaks`
`479`	`479`	`}`
`@@ -491,7 +491,7 @@ split_code <- function(code) {`
`491`	`491`	`if (nrow(call_breaks) == 0) {`
`492`	`492`	`return(code)`
`493`	`493`	`}`
`494`		`- call_breaks <- call_breaks[order(call_breaks[, "line"], call_breaks[, "col"]), ]`
	`494`	`+ call_breaks <- call_breaks[order(call_breaks[, "line"], call_breaks[, "col"]), , drop = FALSE]`
`495`	`495`	`code_split <- strsplit(code, split = "\n", fixed = TRUE)[[1]]`
`496`	`496`	`char_count_lines <- c(0, cumsum(sapply(code_split, nchar, USE.NAMES = FALSE) + 1), -1)[seq_along(code_split)]`
`497`	`497`