README.md

Travis build status

ddiR

An R package to obtain data from the Omics Discovery Index (OmicsDI. It uses its RESTful Web Services at OmicsDI WS for that purpose.

Currently, the following domain entities are supported:

Installation

First, we need to install devtools:

install.packages("devtools")
library(devtools)

Then we just call

install_github("enriquea/ddiR")
library(ddiR)

Examples


library(ddiR)

dataset = get.DatasetDetail(accession="PXD000210", database="pride")

# print dataset full name
get.dataset.name(dataset)

# print dataset omics type
get.dataset.omics(dataset)


datasets <- search.DatasetsSummary(query = "NOTCH1")

sink("outfile.txt")
for(datasetCount in seq(from = 0, to = datasets@count, by = 100)){

    datasets <- search.DatasetsSummary(query = "NOTCH1", start = datasetCount, size = 100)

    for(dataset in datasets@datasets){
             dataset = get.DatasetDetail(accession=dataset.id(dataset), database=database(dataset))
             print(paste(dataset.id(dataset), get.dataset.omics(dataset), get.dataset.link(dataset)))
            }
    }
}
sink()


datasets <- search.DatasetsSummary(query = "Cancer AND Genomics")

for(dataset in datasets@datasets){
    dataset = get.DatasetDetail(accession=dataset.id(dataset), database=database(dataset))
    print(paste(dataset.id(dataset), get.dataset.link(dataset), sep = ' '))
}


datasets <- search.DatasetsSummary(query = "p53 AND Proteomics")

for(dataset in datasets@datasets){
    dataset = get.DatasetDetail(accession=dataset.id(dataset), database=database(dataset))
    print(paste(dataset.id(dataset), get.dataset.name(dataset), sep = ' '))
}


datasets <- search.DatasetsSummary(query = "Heart")

for(dataset in datasets@datasets){
    dataset = get.DatasetDetail(accession=dataset.id(dataset), database=database(dataset))
    if(database(dataset)=='pride')
    print(paste(dataset.id(dataset), get.dataset.tissues(dataset), get.dataset.omics(dataset), sep = ' '))
}


datasets <- search.DatasetsSummary(query = "*:*")
i  = 0
sink("outfile.txt")
for(datasetCount in seq(from = 0, to = datasets@count, by = 100)){

    datasets <- search.DatasetsSummary(query = "*:*", start = datasetCount, size = 100)

    for(dataset in datasets@datasets){
            Similar = get.MetadataSimilars(accession = dataset@dataset.id, database = dataset@database)
            rank = 0
            for(similarDataset in Similar@datasets){
                print(paste(dataset@dataset.id, similarDataset@dataset.id, similarDataset@score, dataset@omics.type, rank))
                rank = rank + 1
            }
    }
}
sink()

Maintainers

Yasset Perez-Riverol Ariana Barbera Betancourt Enrique Audain



OmicsDI/ddiR documentation built on April 3, 2020, 3:16 p.m.