RT_cleaner <- function(peaklist3, RTmax) {
if (is.null(RTmax)) {
peaklist4 <- peaklist3
} else {
RT <- peaklist3$rt/60
peaklist4 <- peaklist3[which(RT <= RTmax), ]
return(peaklist4)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.