#' @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"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.