Merge pull request #1300 from GoekeLab/bugfix_pre-commit-ci

Fix the pre-commit workflow

Author: lorenzwalthert

.github/workflows/pre-commit.yaml

@@ -26,8 +26,9 @@ jobs:
         with:
           fetch-depth: 0
       - name: Setup system dependencies
-        run: | 
-          sudo apt install cmake libcurl4-openssl-dev libnode-dev pandoc
+        run: |
+          sudo apt-get update
+          sudo apt-get install -y cmake libcurl4-openssl-dev libnode-dev pandoc
       - name: Set up Python
         uses: actions/setup-python@v6.0.0
         with:

DESCRIPTION

@@ -106,4 +106,4 @@ Collate:
     'vertical.R'
     'visit.R'
     'zzz.R'
-Config/roxygen2/version: 8.0.0
+Config/roxygen2/version: 8.1.0

NAMESPACE

@@ -32,27 +32,33 @@ export(tidyverse_math_token_spacing)
 export(tidyverse_reindention)
 export(tidyverse_style)
 importFrom(magrittr,"%>%")
-importFrom(purrr,compact)
-importFrom(purrr,flatten)
-importFrom(purrr,flatten_chr)
-importFrom(purrr,flatten_int)
-importFrom(purrr,map)
-importFrom(purrr,map2)
-importFrom(purrr,map2_chr)
-importFrom(purrr,map_at)
-importFrom(purrr,map_chr)
-importFrom(purrr,map_int)
-importFrom(purrr,map_lgl)
-importFrom(purrr,partial)
-importFrom(purrr,pmap)
-importFrom(purrr,pwalk)
-importFrom(rlang,"%||%")
-importFrom(rlang,abort)
-importFrom(rlang,check_installed)
-importFrom(rlang,is_installed)
-importFrom(rlang,seq2)
-importFrom(rlang,set_names)
-importFrom(rlang,warn)
-importFrom(vctrs,vec_rbind)
-importFrom(vctrs,vec_slice)
-importFrom(vctrs,vec_split)
+importFrom(purrr,
+  compact,
+  flatten,
+  flatten_chr,
+  flatten_int,
+  map,
+  map2,
+  map2_chr,
+  map_at,
+  map_chr,
+  map_int,
+  map_lgl,
+  partial,
+  pmap,
+  pwalk
+)
+importFrom(rlang,
+  "%||%",
+  abort,
+  check_installed,
+  is_installed,
+  seq2,
+  set_names,
+  warn
+)
+importFrom(vctrs,
+  vec_rbind,
+  vec_slice,
+  vec_split
+)

R/utils.R

@@ -28,7 +28,7 @@ ensure_last_n_empty <- function(x, n = 1L) {
     return("")
   }
   x <- c(x, "", "")
-  x <- x[seq(1L, length(x) - which(rev(x) != "")[1L] + 1L)]
+  x <- x[seq_len(length(x) - which(rev(x) != "")[1L] + 1L)]
   c(x, rep("", n))
 }