if(interactive()){
## 1st lets list some authentic entrez gene IDs
geneIds <- c("1","10","100","1000","10000","100008586")
probeNames <- paste("probe", 1:length(geneIds), sep="")
probeFrame <- data.frame(probes=probeNames, genes=geneIds)
makeChipPackage(prefix='testChip',
probeFrame=probeFrame,
orgPkgName='org.Hs.eg.db',
version='0.99.1',
maintainer='Some One <so@someplace.org>',
author='Some One <so@someplace.org>',
outputDir='.',
tax_id='59729',
genus='Homo',
species='sapiens')
## then you can call install.packages based on the return value
install.packages('./testChip.db', repos=NULL)
}
Run the code above in your browser using DataCamp Workspace