# Example usage:
# \donttest{
# Load necessary library
library(tibble)
# Reduced example data as an R tibble
test_data <- tibble::tibble(
id = c(1, 78, 83, 87),
species = c("mouse", "mouse", "rat", "mouse"),
sample_type = c("brain", "brain", "brain", "brain"),
accession = c("O88737", "O35927", "Q9R064", "P51611"),
accession_source = c("OtherDB", "UniProt", "UniProt", "UniProt"),
entry_name = c("BSN_MOUSE", NA, "GORS2_RAT", NA),
protein_name = c("Protein bassoon", NA, "Golgi reassembly-stacking protein2", NA),
gene_name = c("Bsn", NA, "Gorasp2", NA)
)
# Process the tibble
result_data <- process_tibble_uniprot(test_data)
# Compare the original and processed tibbles
compare_tibbles_uniprot(test_data, result_data)
# }
Run the code above in your browser using DataLab