Merge latest updates from test

Merge branch 'test' into 362481-long-labels

# Conflicts:
#	NEWS.md

Author: luffmark

.lintr.R

@@ -4,7 +4,6 @@ linters <- lintr::modify_defaults(
   , line_length_linter = NULL                 # we see how long lines are when we write them
   , indentation_linter = NULL
   , trailing_whitespace_linter = NULL
-  , cyclocomp_linter = NULL                   # prevents trivial amount of nesting and long but straightforward functions
   , object_name_linter = NULL                 # we have reasons to capitalize. nobody in our team CamelCase. shiny does
   , object_length_linter = NULL               # we don't type long var names just because
   , pipe_continuation_linter = NULL           # wickham being overly prescriptive

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dv.papo
 Title: Patient Profile
-Version: 2.2.0-9000
+Version: 2.2.0-9001
 Authors@R: 
     c(person("Boehringer-Ingelheim Pharma GmbH & Co.KG", role = c("cph", "fnd")),
       person(given = "Korbinian",

NEWS.md

@@ -1,7 +1,11 @@
-# dv.papo 2.2.0-9000
+# dv.papo 2.2.0-9001
 
 - Wrap decode column into no more than two lines (to avoid overlap).
 
+# dv.papo 2.2.0-9000
+
+- [NOT USER-FACING] Tweak lintr rules.
+
 # dv.papo 2.2.0
 
 - Refactor code to use {ggiraph} and {patchwork} instead of {plotly}.

R/utils-misc.R

@@ -33,7 +33,7 @@ merge_with_no_duplicate_cols <- function(a, b, by) merge(a, b[c(by, setdiff(name
 #' performing optional round up using the level of precision present
 #' in the input data
 #'
-#' @param data [character(n)] Vector of dates
+#' @param data `[character(n)]` Vector of dates
 #'
 #' @keywords internal
 #'

tests/testthat/test-all.R

@@ -166,7 +166,7 @@ test_that(
 )
 
 column_count_tst <- 4
-records <- testd1_sl %>% dplyr::filter(USUBJID == "01-701-1015")
+records <- testd1_sl |> dplyr::filter(USUBJID == "01-701-1015")
 
 test_that(
   "Subject level information will be shown in patient information section,