Nothing
#' @author Daniel Camilo Osorio <dcosorioh@unal.edu.co>
#' @importFrom "utils" "download.file" "read.csv2" "setTxtProgressBar" "txtProgressBar"
.extract <- function(reaction){
if (grepl(";",reaction)){
parts <- unlist(strsplit(reaction,";[[:blank:]]+"))
return(parts[length(parts)])
}else{
if (!grepl("rn:R[[:digit:]]+[[:blank:]]",reaction)){
return(reaction)
} else {
return(unlist(strsplit(reaction,"rn:R[[:digit:]]+[[:blank:]]"))[2])
}
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.