Skip to content

Instantly share code, notes, and snippets.

@grimbough
Created November 6, 2017 09:57
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save grimbough/1e44fbe7ab4e3638671ef5e11e7128db to your computer and use it in GitHub Desktop.
Save grimbough/1e44fbe7ab4e3638671ef5e11e7128db to your computer and use it in GitHub Desktop.
fullXmlQuery <- "<?xml version='1.0' encoding='UTF-8'?> <!DOCTYPE Query>
<Query virtualSchemaName = 'default' uniqueRows = '1' count = '0' datasetConfigVersion = '0.6' header='1' requestid= 'biomaRt'>
<Dataset name = 'hsapiens_gene_ensembl'>
<Attribute name = 'phenotype_description'/>
<Attribute name = 'ensembl_gene_id'/>
<Filter name = 'ensembl_gene_id' value = 'ENSG00000094804'/>
</Dataset>
</Query>"
rcurl_return <- RCurl::postForm(uri = "http://www.ensembl.org:80/biomart/martservice?",
"query" = fullXmlQuery)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment