Skip to contents

This function iterates through a list of plots and prints them (without printing the list index).

Usage

print_plots(plots)

Arguments

plots

A list of ggplot2::ggplot() objects.

Value

Returns NULL, since this function is used for its side effects.

Examples

gen_key <- read_key_csv(mctr_ex("example-gen-key.csv"))
#> Rows: 12 Columns: 7
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> chr (2): Sex, Genotype
#> dbl (5): AS, SampNo, Spine, Met, Dia
#> 
#>  Use `spec()` to retrieve the full column specification for this data.
#>  Specify the column types or set `show_col_types = FALSE` to quiet this message.
gen_cort <- read_cortical_csv(mctr_ex("example-twice1.csv"),
                          mctr_ex("example-twice2.csv"),
                          gen_key)
#> Rows: 36 Columns: 75
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> chr (44): SampName, MeasDate, ListDate, Filename, Site, Energy-I-Code, Contr...
#> dbl (26): SampNo, MeasNo, Integr.Time, Sigma, Support, Threshold, Unit, Data...
#> lgl  (5): S-DOB, S-Remark, Meas-Rmk, RAW-Label, IMA-Label
#> 
#>  Use `spec()` to retrieve the full column specification for this data.
#>  Specify the column types or set `show_col_types = FALSE` to quiet this message.
#> Rows: 36 Columns: 75
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> chr (43): SampName, MeasDate, ListDate, Filename, Site, Energy-I-Code, Contr...
#> dbl (27): SampNo, MeasNo, Integr.Time, Sigma, Support, Threshold, Unit, Data...
#> lgl  (5): S-DOB, S-Remark, Meas-Rmk, RAW-Label, IMA-Label
#> 
#>  Use `spec()` to retrieve the full column specification for this data.
#>  Specify the column types or set `show_col_types = FALSE` to quiet this message.
plot_groups(gen_cort |> dplyr::filter(Site == "Dia")) |> print_plots()