fix use of .data with aes

R/glog_transformation.R

@@ -125,7 +125,7 @@ glog_plot_optimised_lambda <- function(df, optimised_lambda, classes, qc_label,
         length.out=plot_grid))
     sse_df$SSE <- vapply(X=sse_df$lambda, FUN=SSE, y0=0, y=assay(df_qc), 
         FUN.VALUE=numeric(1))
-    g <- ggplot(data=sse_df, aes(x=data[['lambda']],y=data[['SSE']])) +
+    g <- ggplot(data=sse_df, aes(x=.data[['lambda']],y=.data[['SSE']])) +
         geom_vline(xintercept=optimised_lambda, color="red") +
         geom_line(linewidth=1.1) + theme_bw() +
         labs (title="glog parameter optimisation",