Finish R script linting

workflow/apps/r/interactions.R

@@ -289,11 +289,11 @@ Plate_Analysis_L <-
   ggplot(X, aes(Scan, l, color = as.factor(Conc_Num))) +
   geom_point(shape = 3, size = 0.2) +
   stat_summary(
-    fun = mean, 
-    fun.min = function(x) mean(x) - sd(x), 
+    fun = mean,
+    fun.min = function(x) mean(x) - sd(x),
     fun.max = function(x) mean(x) + sd(x),
     geom = "errorbar"
-  ) + 
+  ) +
   stat_summary(fun = mean, geom = "point", size = 0.6) +
   ggtitle("Plate analysis by Drug Conc for L before quality control") + theme_publication()
 
@@ -989,7 +989,7 @@ for (s in Background_Strains) {
   X1_SD_outside_2SD_K <- max(X_stats_BY_L_outside_2SD_K$sd)
 
   # X1_SD_outside_2SD_K <- X[X$l %in% X1_SD_within_2SD_K$l, ]
-  Outside_2SD_K_L_vs_K <- 
+  Outside_2SD_K_L_vs_K <-
     ggplot(X_outside_2SD_K, aes(l, K, color = as.factor(Conc_Num))) +
     geom_point(aes(ORF = ORF, Gene = Gene, Delta_Backgrd = Delta_Backgrd), shape = 3) +
     ggtitle("Raw L vs K for strains falling outside 2SD of the K mean at each conc") +