# Load libraries
library(tibble)
library(stringr)
# Example data
data <- list(
DIANN = list(
filename = "B",
software = "DIA-NN",
data = list(
"DIA-NN" = tibble::tibble(
Run_mpwR = rep(c("A","B"), times = 10),
Precursor.IDs_mpwR = rep(c("A2", "A3", "B2", "B3", "C1"), each = 4),
Protein.IDs_mpwR = rep(c("A2", "A3", "B2", "B3", "C1"), each = 4),
Peptide.IDs_mpwR = rep(c("A", "A", "B", "B", "C"), each = 4),
ProteinGroup.IDs_mpwR = rep(c("A2", "A3", "B2", "B3", "C1"), each = 4)
)
)
)
)
# Result
output <- get_ID_Report(
input_list = data
)
Run the code above in your browser using DataLab