Mercurial > repos > prog > lcmsmatching
view ChemSpiderConn.R @ 0:e66bb061af06 draft
planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit 3529b25417f8e1a5836474c9adec4b696d35099d-dirty
author | prog |
---|---|
date | Tue, 12 Jul 2016 12:02:37 -0400 |
parents | |
children | 253d531a0193 |
line wrap: on
line source
if ( ! exists('ChemspiderConn')) { # Do not load again if already loaded source('BiodbConn.R') source('ChemspiderCompound.R') ##################### # CLASS DECLARATION # ##################### ChemspiderConn <- setRefClass("ChemspiderConn", contains = "BiodbConn") ########################## # GET ENTRY CONTENT TYPE # ########################## ChemspiderConn$methods( getEntryContentType = function(type) { return(RBIODB.HTML) }) ##################### # GET ENTRY CONTENT # ##################### ChemspiderConn$methods( getEntryContent = function(type, id) { if (type == RBIODB.COMPOUND) { # Initialize return values content <- rep(NA_character_, length(id)) # Request content <- vapply(id, function(x) .self$.scheduler$getUrl(get.entry.url(RBIODB.CHEMSPIDER, x)), FUN.VALUE = '') return(content) } return(NULL) }) ################ # CREATE ENTRY # ################ ChemspiderConn$methods( createEntry = function(type, content, drop = TRUE) { return(if (type == RBIODB.COMPOUND) createChemspiderCompoundFromHtml(content, drop = drop) else NULL) }) ############################ # GET CHEMSPIDER IMAGE URL # ############################ get.chemspider.image.url <- function(id) { url <- paste0('http://www.chemspider.com/ImagesHandler.ashx?w=300&h=300&id=', id) return(url) } } # end of load safe guard