data-raw/PDB.R

In schifferl/TMHMM: Transmembrane Helix Prediction

PDB <-
    system.file("extdata/PDBseqs.fasta", package = "TMHMM") %>%
    Biostrings::readAAStringSet() %>%
    base::as.data.frame() %>%
    tibble::rownames_to_column(var = "PROTEIN") %>%
    dplyr::mutate(PROTEIN = stringr::str_remove_all(PROTEIN, "\\..+")) %>%
    dplyr::mutate_all(stringr::str_trim) %>%
    dplyr::mutate(PROTEIN = forcats::as_factor(PROTEIN)) %>%
    dplyr::rename(SEQUENCE = x)

usethis::use_data(PDB)