lintr

Author: m7pr

R/tm_missing_data.R

@@ -1375,9 +1375,9 @@ srv_missing_data <- function(id,
 
     decorated_summary_plot_dims_q <- set_chunk_dims(pws1, decorated_summary_plot_q)
 
-    decorated_combination_plot_dims_q <- set_chunk_dims(pws2, decorated_combination_plot_q)
+    decorated_combination_plot_dims_q <- set_chunk_dims(pws2, decorated_combination_plot_q) # nolint: variable_name.
 
-    decorated_by_subject_plot_dims_q <- set_chunk_dims(pws3, decorated_by_subject_plot_q)
+    decorated_by_subject_plot_dims_q <- set_chunk_dims(pws3, decorated_by_subject_plot_q) # nolint: variable_name.
 
     decorated_final_q <- reactive({
       sum_type <- req(input$summary_type)

R/utils.R

@@ -398,7 +398,10 @@ set_chunk_attrs <- function(teal_card,
     current_ix <- length(teal_card) + 1 - ix
     if (!inherits(teal_card[[current_ix]], "chunk_output")) {
       if (!quiet) {
-        warning("The ", ix, " to last element of the `teal_card` is not a `chunk_output` object. Skipping any further modifications.")
+        warning(
+          "The ", ix, 
+          " to last element of the `teal_card` is not a `chunk_output` object. Skipping any further modifications."
+        )
       }
       return(teal_card)
     }