169 wrapping up the long code in the Report

.github/workflows/check.yaml

@@ -27,6 +27,7 @@ jobs:
     with:
       additional-env-vars: |
         _R_CHECK_CRAN_INCOMING_REMOTE_=false
+        _R_CHECK_EXAMPLE_TIMING_THRESHOLD_=10
       additional-r-cmd-check-params: --as-cran
       enforce-note-blocklist: true
       note-blocklist: |

.lintr

@@ -1,5 +1,6 @@
 linters: linters_with_defaults(
   line_length_linter = line_length_linter(120),
   cyclocomp_linter = NULL,
-  object_usage_linter = NULL
+  object_usage_linter = NULL,
+  indentation_linter = NULL
   )

DESCRIPTION

@@ -31,6 +31,7 @@ Imports:
     zip (>= 1.1.0)
 Suggests:
     DT (>= 0.13),
+    formatR,
     ggplot2 (>= 3.4.0),
     lattice (>= 0.18-4),
     png,

NEWS.md

@@ -1,5 +1,7 @@
 # teal.reporter 0.2.1.9004
 
+* Supports automatic `Rcode` formatting using the suggested `formatR` package in reports.
+
 # teal.reporter 0.2.1
 
 ### Miscellaneous

R/DownloadModule.R

@@ -136,6 +136,11 @@ download_report_button_srv <- function(id,
           names(input_list) <- names(rmd_yaml_args)
           global_knitr <- list()
           if (is.logical(input$showrcode)) global_knitr <- list(echo = input$showrcode)
+          if (requireNamespace("formatR", quietly = TRUE)) {
+            global_knitr <- append(global_knitr, list(tidy.opts = list(width.cutoff = 60), tidy = TRUE))
+          } else {
+            message("For better code formatting, consider installing the formatR package.")
+          }
           report_render_and_compress(reporter, input_list, global_knitr, file)
         },
         contentType = "application/zip"