#' refereence: perl script comes from package protViz get rdatafile from a mascot output file
#'
#' @param iput_file input file that is received from mascot
#' @param oput_file a file that is readable by the protviz package
mascot_data<- function(iput_file,oput_file){
#mascot data to rdata file
get_data <- paste("perl", "mascotDat2RData.pl", "-d="+iput_file, "-m="+oput_file)
system(get_data)
return(oput_file)
}
# [END]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.