diff --git a/R/multiqc.R b/R/multiqc.R
index 7f4d748..48a41c6 100644
--- a/R/multiqc.R
+++ b/R/multiqc.R
@@ -9,7 +9,9 @@
 #' x <- "/path/to/multiqc_data.json"
 #' mqc <- MultiqcFile$new(x)
 #' mqc_parsed <- mqc$read() # or read(mqc)
-#' mqc$write(mqc_parsed, out_dir = tempdir(), prefix = "sample705", out_format = "both")
+#' mqc$write(mqc_parsed, out_dir = tempdir(), prefix = "sample705", out_format = "tsv")
+#' mqc_plots_parsed <- mqc$read(plot = TRUE, plot_names = "everything")
+#' mqc$write(mqc_plots_parsed, out_dir = tempdir(), prefix = "sample705", out_format = "rds")
 #' }
 #' @export
 MultiqcFile <- R6::R6Class(
@@ -19,11 +21,19 @@ MultiqcFile <- R6::R6Class(
     #' @description
     #' Reads the `multiqc_data.json` file output from MultiQC.
     #'
+    #' @param plot Return tibble with data for plots (def: FALSE).
+    #' @param plot_names Names of plots to parse. Use "everything" if you wantz all
+    #' the plotz.
     #' @return A tidy tibble.
     #'   - label:
-    read = function() {
+    read = function(plot = FALSE, plot_names = NULL) {
       x <- self$path
-      multiqc_tidy_json(x)
+      res <- multiqc_tidy_json(x)
+      if (plot) {
+        p <- multiqc_parse_plots(x, plot_names = plot_names)
+        res <- list(metrics = res, plots = p)
+      }
+      return(res)
     },
 
     #' @description
@@ -40,6 +50,9 @@ MultiqcFile <- R6::R6Class(
         prefix <- file.path(out_dir, prefix)
       }
       # prefix2 <- glue("{prefix}multiqc")
+      # only write plots if output format is rds, else need to destructure the whole thing...
+      has_plots_and_not_rds <- !inherits(d, "data.frame") && out_format != "rds"
+      assertthat::assert_that(!has_plots_and_not_rds)
       write_dracarys(obj = d, prefix = prefix, out_format = out_format, drid = drid)
     }
   )
diff --git a/man/MultiqcFile.Rd b/man/MultiqcFile.Rd
index d73a473..fa35899 100644
--- a/man/MultiqcFile.Rd
+++ b/man/MultiqcFile.Rd
@@ -12,7 +12,9 @@ Contains methods for reading and displaying contents of the
 x <- "/path/to/multiqc_data.json"
 mqc <- MultiqcFile$new(x)
 mqc_parsed <- mqc$read() # or read(mqc)
-mqc$write(mqc_parsed, out_dir = tempdir(), prefix = "sample705", out_format = "both")
+mqc$write(mqc_parsed, out_dir = tempdir(), prefix = "sample705", out_format = "tsv")
+mqc_plots_parsed <- mqc$read(plot = TRUE, plot_names = "everything")
+mqc$write(mqc_plots_parsed, out_dir = tempdir(), prefix = "sample705", out_format = "rds")
 }
 }
 \section{Super class}{
@@ -42,9 +44,19 @@ mqc$write(mqc_parsed, out_dir = tempdir(), prefix = "sample705", out_format = "b
 \subsection{Method \code{read()}}{
 Reads the \code{multiqc_data.json} file output from MultiQC.
 \subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{MultiqcFile$read()}\if{html}{\out{</div>}}
+\if{html}{\out{<div class="r">}}\preformatted{MultiqcFile$read(plot = FALSE, plot_names = NULL)}\if{html}{\out{</div>}}
 }
 
+\subsection{Arguments}{
+\if{html}{\out{<div class="arguments">}}
+\describe{
+\item{\code{plot}}{Return tibble with data for plots (def: FALSE).}
+
+\item{\code{plot_names}}{Names of plots to parse. Use "everything" if you wantz all
+the plotz.}
+}
+\if{html}{\out{</div>}}
+}
 \subsection{Returns}{
 A tidy tibble.
 \itemize{
diff --git a/tests/testthat/test-roxytest-testexamples-multiqc.R b/tests/testthat/test-roxytest-testexamples-multiqc.R
index 225d826..52abfbd 100644
--- a/tests/testthat/test-roxytest-testexamples-multiqc.R
+++ b/tests/testthat/test-roxytest-testexamples-multiqc.R
@@ -2,7 +2,7 @@
 
 # File R/multiqc.R: @testexamples
 
-test_that("Function multiqc_date_fmt() @ L284", {
+test_that("Function multiqc_date_fmt() @ L297", {
   
   cdate <- "2023-04-07, 09:09 UTC"
   (res1 <- multiqc_date_fmt(cdate))