devtools::load_all() library(SLINGtools)
mexp <- MidarExperiment() mexp <- mexp |> loadMasshunterCSV("Test_MH.csv") |> loadMSOrganizerXLM("MSTemplate_Creator_forTest.xlsm") mexp <- mexp |> normalizeByISTD() |> quantitateByISTD() |> calcQC() mexp <- mexp |> getDatasetFilteredQC( Intensity_BQC_min = 500, CV_BQC_max = 25, SB_RATIO_min = 5, R2_min = 0.8, RQC_CURVE = "1" ) SLINGtools::writeReportXLS(mexp, here("D:/my_report.xlsx"))
SLINGtools::writeReportXLS(data = mexp, filename = here(".testing/MyReport"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.