R/formatter.R

In jeanmanguy/peptr: What the Package Does (One Line, Title Case)

Defines functions format_position format_ptm format_peptide

format_position <- function(position) {
  paste0("@", as.character(position))
}

format_ptm <- function(position) {
  format_position(position)
}

format_peptide <- function(sequence, position, count) {
  paste0(as.character(count), "x", format_position(position), ":", as.character(sequence))
}