Mercurial > repos > prog > lcmsmatching
view ChemSpiderConn.R @ 1:253d531a0193 draft
planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit 36c9d8099c20a1ae848f1337c16564335dd8fb2b
author | prog |
---|---|
date | Sat, 03 Sep 2016 17:02:01 -0400 |
parents | e66bb061af06 |
children |
line wrap: on
line source
if ( ! exists('ChemspiderConn')) { # Do not load again if already loaded source('RemotedbConn.R') source('ChemspiderCompound.R') ##################### # CLASS DECLARATION # ##################### ChemspiderConn <- setRefClass("ChemspiderConn", contains = "RemotedbConn") ########################## # GET ENTRY CONTENT TYPE # ########################## ChemspiderConn$methods( getEntryContentType = function(type) { return(BIODB.HTML) }) ##################### # GET ENTRY CONTENT # ##################### ChemspiderConn$methods( getEntryContent = function(type, id) { if (type == BIODB.COMPOUND) { # Initialize return values content <- rep(NA_character_, length(id)) # Request content <- vapply(id, function(x) .self$.scheduler$getUrl(get.entry.url(BIODB.CHEMSPIDER, x)), FUN.VALUE = '') return(content) } return(NULL) }) ################ # CREATE ENTRY # ################ ChemspiderConn$methods( createEntry = function(type, content, drop = TRUE) { return(if (type == BIODB.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