# Example usage:
# \donttest{
# Original input tibble
input_data <- tibble::tibble(
id = c(1, 2),
species = c("mouse", "rat"),
sample_type = c("brain", "liver"),
accession = c("O88737", "Q9R064"),
accession_source = c("UniProt", "UniProt")
)
# Process the tibble (this will add the entry_name, protein_name, and gene_name)
processed_data <- process_tibble_uniprot(input_data)
# Compare the original and processed tibbles
compare_tibbles_uniprot(input_data, processed_data)
# }
Run the code above in your browser using DataLab