Split lines to fix linter issues

Author: llrs-roche

R/tm_a_pca.R

@@ -794,7 +794,9 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
         pca_plot_biplot_expr <- c(
           pca_plot_biplot_expr,
           substitute(
-            ggplot2::geom_point(ggplot2::aes_string(x = x_axis, y = y_axis), data = pca_rot, alpha = alpha, size = size),
+            ggplot2::geom_point(ggplot2::aes_string(x = x_axis, y = y_axis),
+              data = pca_rot, alpha = alpha, size = size
+            ),
             list(x_axis = input$x_axis, y_axis = input$y_axis, alpha = input$alpha, size = input$size)
           )
         )

R/tm_g_distribution.R

@@ -816,7 +816,8 @@ srv_distribution <- function(id,
           substitute(
             expr = ggplot2::ggplot(ANL, aes(dist_var_name, col = s_var_name)) +
               ggplot2::geom_histogram(
-                position = "identity", ggplot2::aes(y = ggplot2::after_stat(m_type), fill = s_var), bins = bins_var, alpha = 0.3
+                position = "identity", ggplot2::aes(y = ggplot2::after_stat(m_type), fill = s_var),
+                bins = bins_var, alpha = 0.3
               ),
             env = list(
               m_type = as.name(m_type),

R/tm_outliers.R

@@ -980,7 +980,10 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
         qenv,
         substitute(
           expr = cumulative_plot <- plot_call +
-            ggplot2::geom_point(data = outlier_points, ggplot2::aes(x = outlier_var_name, y = y, color = is_outlier_selected)) +
+            ggplot2::geom_point(
+              data = outlier_points,
+              ggplot2::aes(x = outlier_var_name, y = y, color = is_outlier_selected)
+            ) +
             ggplot2::scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black")) +
             labs + ggthemes + themes,
           env = list(