R/util-vctrs-names.R

In tidysq: Tidy Processing and Analysis of Biological Sequences

#' @export
vec_ptype_abbr.sq_dna_bsc <- function(x, ...) "dna_bsc"

#' @export
vec_ptype_full.sq_dna_bsc <- function(x, ...) "basic DNA"

#' @export
vec_ptype_abbr.sq_dna_ext <- function(x, ...) "dna_ext"

#' @export
vec_ptype_full.sq_dna_ext <- function(x, ...) "extended DNA"

#' @export
vec_ptype_abbr.sq_rna_bsc <- function(x, ...) "rna_bsc"

#' @export
vec_ptype_full.sq_rna_bsc <- function(x, ...) "basic RNA"

#' @export
vec_ptype_abbr.sq_rna_ext <- function(x, ...) "rna_ext"

#' @export
vec_ptype_full.sq_rna_ext <- function(x, ...) "extended RNA"

#' @export
vec_ptype_abbr.sq_ami_bsc <- function(x, ...) "ami_bsc"

#' @export
vec_ptype_full.sq_ami_bsc <- function(x, ...) "basic amino acid"

#' @export
vec_ptype_abbr.sq_ami_ext <- function(x, ...) "ami_ext"

#' @export
vec_ptype_full.sq_ami_ext <- function(x, ...) "extended amino acid"

#' @export
vec_ptype_abbr.sq_unt <- function(x, ...) "unt"

#' @export
vec_ptype_full.sq_unt <- function(x, ...) "unt (unspecified type)"

#' @export
vec_ptype_abbr.sq_atp <- function(x, ...) "atp"

#' @export
vec_ptype_full.sq_atp <- function(x, ...) "atp (atypical alphabet)"

#' @export
vec_ptype_abbr.sq_alphabet <- function(x, ...) "sq_alph"

#' @export
vec_ptype_full.sq_alphabet <- function(x, ...) "tidysq alphabet"