Takes data.frame of QC_LibraryParse, and iterating over individual users returns plots

Usage

QC_UserLibraries(
  x,
  Data,
  NameAppend,
  outpath,
  references = TRUE,
  thecolumns = 3,
  therows = 4,
  width = 7,
  height = 9,
  saveCSV = TRUE
)

Arguments

x: Mapped individual name present within the Creator Column
Data: The data.frame object working from
NameAppend: Name to add to end of the file
outpath: Desired storage location
references: Whether to include red reference signatures
thecolumns: Passed to Patchwork, desired number of columns
therows: Passed to Patchwork, desired number of rows
width: Passed to Patchwork, page width
height: Passed to Patchwork, page height
saveCSV: Whether to return a .csv of underlying data, default is TRUE

Value

A pdf of the plots and maybe a csv

Examples


library(purrr)
library(dplyr)

StorageLocation <- file.path(tempdir(), "LuciernagaTemporaryExamples")
if (!dir.exists(StorageLocation)) {dir.create(StorageLocation)}

Folder_Location <- system.file("extdata", package = "Luciernaga")
XML_Pattern <- ".XML$"
XML_Files <- list.files(path = Folder_Location, pattern = XML_Pattern,
                        full.names = TRUE, recursive = FALSE)
Data <- map(.x=XML_Files[1:4], .f=QC_LibraryParse,
  returntype="dataframe", references=FALSE) %>% bind_rows()

TheIndividuals <- Data %>% pull(Creator) %>% unique()

JohnDoesLibrary <- walk(.x=TheIndividuals[1], .f=QC_UserLibraries, Data=Data,
  NameAppend="_LibraryQC", outpath=StorageLocation, references = TRUE,
   thecolumns = 3, therows=4, width=7, height=9, saveCSV=FALSE)
#> $`1`
#> 

ThePDF <- list.files(StorageLocation, pattern="_LibraryQC.pdf")