R/helper.R

In matdoering/openPrimeRui: Shiny Application for Multiplex PCR Primer Design and Analysis

change.extension <- function(x, ext) {
    out <- sub("\\.[[:alnum:]]+$", "", x)
    out <- paste(out, ".", ext, sep = "")
    return(out)
} 

update.sample.name <- function(df, sample.name) {
    # updates the Run column of a data frame
    if (length(df) == 0 || nrow(df) == 0) {
        return(NULL)
    }
    if (length(sample.name) == 0) {
        return(df)
    } else {
        df$Run <- sample.name
    }
    return(df)
}

adjust.rev.allowed.regions <- function(interval, seq.len) {
    if (length(interval) != 2) {
        return(interval)
    }
    new.interval <- rev(seq.len - interval + 1)
    return(new.interval)
}