Skip to contents

Extracts uniprot ID

Usage

get_uniprot_id_from_fasta_header(df, idcolumn = "protein_Id")

Arguments

df

data.frame

idcolumn

character, column name to extract uniprot IDs from

Value

data.frame

Examples


df <- data.frame(
  protein_Id = c("sp|P12345|PROT1_HUMAN", "sp|Q67890|PROT2_HUMAN",
                 "tr|A0A0A0|PROT3_HUMAN", "NOFASTA_ID"),
  value = 1:4
)
result <- get_uniprot_id_from_fasta_header(df, idcolumn = "protein_Id")
stopifnot("UniprotID" %in% colnames(result))
stopifnot(sum(!is.na(result$UniprotID)) == 3)