Merge branch 'main' into f209-newline-multiline-args

Author: IndrajeetPatil

.github/workflows/pkgdown.yaml

@@ -39,7 +39,7 @@ jobs:
 
       - name: Deploy to GitHub pages 🚀
         if: github.event_name != 'pull_request'
-        uses: JamesIves/github-pages-deploy-action@v4.7.2
+        uses: JamesIves/github-pages-deploy-action@v4.7.3
         with:
           clean: false
           branch: gh-pages

.github/workflows/pre-commit.yaml

@@ -27,7 +27,7 @@ jobs:
           fetch-depth: 0
 
       - name: Set up Python
-        uses: actions/setup-python@v5.4.0
+        uses: actions/setup-python@v5.5.0
         with:
           python-version: "3.13"
 

.pre-commit-config.yaml

@@ -6,7 +6,7 @@ default_language_version:
 
 repos:
   - repo: https://github.com/lorenzwalthert/precommit
-    rev: v0.4.3.9003
+    rev: v0.4.3.9008
     hooks:
       - id: style-files
         args:

R/rules-line-breaks.R

@@ -310,7 +310,9 @@ set_line_break_after_opening_if_call_is_multi_line <- function(pd,
   if (!is_function_call(pd) && !is_subset_expr(pd)) {
     return(pd)
   }
-  has_force_text_before <- last(pd$child[[1L]]$text) %in% force_text_before
+  idx <- length(pd$child[[1L]]$text)
+  has_force_text_before <-
+    pd$child[[1L]]$text[idx] %in% force_text_before && pd$child[[1L]]$token[idx] == "SYMBOL_FUNCTION_CALL"
   if (has_force_text_before) {
     break_pos <- c(
       which(lag(pd$token %in% c("','", "COMMENT"))),

R/utils-cache.R

@@ -137,7 +137,7 @@ cache_is_activated <- function(cache_name = NULL) {
     return(cache_name == current_cache)
   }
 
-  return(FALSE)
+  FALSE
 }
 
 #' Cache text

tests/testthat/line_breaks_fun_call/switch_ifelse_etc_no_line_break-in.R

@@ -73,3 +73,6 @@ dplyr::ifelse(
   x,
               1, 32
 )
+
+# variable name 'switch' is different
+l$switch[1:3, ]

tests/testthat/line_breaks_fun_call/switch_ifelse_etc_no_line_break-out.R

@@ -75,3 +75,6 @@ dplyr::ifelse(
   x,
   1, 32
 )
+
+# variable name 'switch' is different
+l$switch[1:3, ]