cf. https://style.tidyverse.org/syntax.html#vertical-space
Actual
library(styler)
"f <- function() NULL
g <- function() f()" -> code
style_text(text = code)
#> f <- function() NULL
#> 
#> 
#> g <- function() f()
Created on 2024-11-28 with reprex v2.1.1
Expected
library(styler)
"f <- function() NULL
g <- function() f()" -> code
style_text(text = code)
#> f <- function() NULL
#> 
#> g <- function() f()