switch from purrr::when() to pal::when()

and regenerate doc

Author: salim-b

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: swissmuni
 Title: Download Municipality Data from the Swiss Federal Statistical
     Office's Web Services
-Version: 0.4.3
+Version: 0.4.3.9000
 Authors@R: 
     person("Salim", "Brüggemann", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-5329-5987"))
@@ -21,8 +21,8 @@ Imports:
     httr (>= 1.4.1),
     lubridate (>= 1.7.9),
     magrittr (>= 1.5),
-    pal (>= 0.0.9073),
-    pkgpins (>= 0.7.0),
+    pal (>= 0.0.9091),
+    pkgpins (>= 0.7.0.9004),
     purrr (>= 0.3.4),
     readr (>= 1.3.1),
     rlang (>= 0.4.6),
@@ -41,4 +41,4 @@ Remotes:
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.2
+RoxygenNote: 7.2.3

R/swissmuni.gen.R

@@ -35,8 +35,8 @@ as_api_date <- function(date) {
     checkmate::assert_date(any.missing = FALSE,
                            null.ok = TRUE,
                            .var.name = "start/end_date") %>%
-    purrr::when(length(.) == 0L ~ NULL,
-                ~ format(., "%d-%m-%Y"))
+    pal::when(length(.) == 0L ~ NULL,
+              ~ format(., "%d-%m-%Y"))
 }
 
 #' Get allowed API URL parameters

README.md

@@ -31,14 +31,32 @@ remotes::install_gitlab(repo = "salim_b/r/pkgs/swissmuni")
 
 This package’s source code is written in the [R Markdown](https://rmarkdown.rstudio.com/) file format to facilitate practices commonly referred to as [*literate programming*](https://en.wikipedia.org/wiki/Literate_programming). It allows the actual code to be freely mixed with explanatory and supplementary information in expressive Markdown format instead of having to rely on [`#` comments](https://cran.r-project.org/doc/manuals/r-release/R-lang.html#Comments) only.
 
-All the `.gen.R` suffixed R source code found under [`R/`](R/) is generated from the respective R Markdown counterparts under [`Rmd/`](Rmd/) using [`pkgpurl::purl_rmd()`](https://rpkg.dev/pkgpurl/reference/purl_rmd.html)[^2]. Always make changes only to the `.Rmd` files – never the `.R` files – and then run `pkgpurl::purl_rmd()` to regenerate the R source files.
+All the `.gen.R` suffixed R source code found under [`R/`](R/) is generated from the respective R Markdown counterparts under [`Rmd/`](Rmd/) using [`pkgpurl::purl_rmd()`](https://pkgpurl.rpkg.dev/dev/reference/purl_rmd.html)[^2]. Always make changes only to the `.Rmd` files – never the `.R` files – and then run `pkgpurl::purl_rmd()` to regenerate the R source files.
 
 ### Coding style
 
 This package borrows a lot of the [Tidyverse](https://www.tidyverse.org/) design philosophies. The R code adheres to the principles specified in the [Tidyverse Design Guide](https://principles.tidyverse.org/) wherever possible and is formatted according to the [Tidyverse Style Guide](https://style.tidyverse.org/) (TSG) with the following exceptions:
 
 -   Line width is limited to **160 characters**, double the [limit proposed by the TSG](https://style.tidyverse.org/syntax.html#long-lines) (80 characters is ridiculously little given today’s high-resolution wide screen monitors).
 
+    Furthermore, the preferred style for breaking long lines differs. Instead of wrapping directly after an expression’s opening bracket as [suggested by the TSG](https://style.tidyverse.org/syntax.html#long-lines), we prefer two fewer line breaks and indent subsequent lines within the expression by its opening bracket:
+
+    ``` r
+    # TSG proposes this
+    do_something_very_complicated(
+      something = "that",
+      requires = many,
+      arguments = "some of which may be long"
+    )
+
+    # we prefer this
+    do_something_very_complicated(something = "that",
+                                  requires = many,
+                                  arguments = "some of which may be long")
+    ```
+
+    This results in less vertical and more horizontal spread of the code and better readability in pipes.
+
 -   Usage of [magrittr’s compound assignment pipe-operator `%<>%`](https://magrittr.tidyverse.org/reference/compound.html) is desirable[^3].
 
 -   Usage of [R’s right-hand assignment operator `->`](https://rdrr.io/r/base/assignOps.html) is not allowed[^4].

Rmd/swissmuni.Rmd

@@ -111,8 +111,8 @@ as_api_date <- function(date) {
     checkmate::assert_date(any.missing = FALSE,
                            null.ok = TRUE,
                            .var.name = "start/end_date") %>%
-    purrr::when(length(.) == 0L ~ NULL,
-                ~ format(., "%d-%m-%Y"))
+    pal::when(length(.) == 0L ~ NULL,
+              ~ format(., "%d-%m-%Y"))
 }
 ```