Fix coverage error

Author: adayim

.github/workflows/R-CMD-check.yaml

@@ -62,4 +62,4 @@ jobs:
         uses: actions/upload-artifact@v7
         with:
           name: package_tarball
-          path: check/*.tar.gz
+          path: check/*.tar.gz

.github/workflows/test-coverage.yaml

@@ -41,8 +41,8 @@ jobs:
         with:
           # Fail if error if not on PR, or if on PR and token is given
           fail_ci_if_error: ${{ github.event_name != 'pull_request' || secrets.CODECOV_TOKEN }}
-          file: ./cobertura.xml
-          plugin: noop
+          files: ./cobertura.xml
+          plugins: noop
           disable_search: true
           token: ${{ secrets.CODECOV_TOKEN }}
 

R/add_text.r

@@ -19,12 +19,12 @@
 #' @param gp An object of class \code{"gpar"}, this is the graphical parameter
 #'  settings of the text. See \code{\link[grid]{gpar}}.
 #' @param padding Padding of the text, default is \code{unit(1, "mm")}
-#' @param parse Logical, behaviour for parsing text as plotmath, see 
-#' \code{\link[grDevices]{plotmath}} 
+#' @param parse Logical, behaviour for parsing text as plotmath, see
+#' \code{\link[grDevices]{plotmath}}
 #'
 #' @return A \code{\link[gtable]{gtable}} object.
-#' @seealso \code{\link[gtable]{gtable}} \code{\link[grid]{gpar}} \code{\link[grid]{textGrob}} 
-#' \code{\link[gtable]{gtable_add_grob}} 
+#' @seealso \code{\link[gtable]{gtable}} \code{\link[grid]{gpar}} \code{\link[grid]{textGrob}}
+#' \code{\link[gtable]{gtable_add_grob}}
 #' @export
 #'
 add_text <- function(plot,
@@ -36,7 +36,7 @@ add_text <- function(plot,
                      gp = gpar(),
                      padding = unit(1, "mm"),
                      parse = FALSE){
-  
+
   if(parse)
     text <- tryCatch(parse(text = text), error = function(e) text)
 
@@ -76,7 +76,7 @@ add_text <- function(plot,
 
   # Span to whole plot if col is missing
   if(is.null(col))
-    col <- 2:max(l$r)
+    col <- min(l$l):max(l$r)
   else
     col <- 1 + col # Add 1 to account for padding of the plot
 

R/insert_text.R

@@ -20,11 +20,11 @@
 #' @param gp An object of class \code{"gpar"}, this is the graphical parameter
 #'  settings of the text. See \code{\link[grid]{gpar}}.
 #' @param padding Padding of the text, default is \code{unit(1, "mm")}
-#' @param parse Logical, behaviour for parsing text as plotmath, see 
-#' \code{\link[grDevices]{plotmath}} 
-#' 
+#' @param parse Logical, behaviour for parsing text as plotmath, see
+#' \code{\link[grDevices]{plotmath}}
+#'
 #' @return A \code{\link[gtable]{gtable}} object.
-#' @seealso \code{\link[grid]{gpar}} \code{\link[grid]{textGrob}} \code{\link[gtable]{gtable_add_grob}} 
+#' @seealso \code{\link[grid]{gpar}} \code{\link[grid]{textGrob}} \code{\link[gtable]{gtable_add_grob}}
 #' @export
 #'
 insert_text <- function(plot,
@@ -87,7 +87,7 @@ insert_text <- function(plot,
 
   # Span to whole plot if col is missing
   if(is.null(col))
-    col <- 2:(ncol(plot) - 1)
+    col <- min(l$l):max(l$l)
   else
     col <- 1 + col # Add 1 to account for padding of the plot