# NOT RUN {
## an example with both merged SNPs, non-SNV SNPs, regular SNPs,
## SNPs not found, microsatellite
SNPs <- c("rs332", "rs420358", "rs1837253", "rs1209415715", "rs111068718")
ncbi_snp_query(SNPs)
# ncbi_snp_query("123456") ##invalid: must prefix with 'rs'
ncbi_snp_query("rs420358")
ncbi_snp_query("rs332") # warning that its merged into another, try that
ncbi_snp_query("rs121909001")
ncbi_snp_query("rs1837253")
# warning that no data available, returns 0 length data.frame
ncbi_snp_query("rs1209415715")
# warning that chromosomal information may be unmapped
ncbi_snp_query("rs111068718")
ncbi_snp_query(SNPs='rs9970807')$BP
# Curl debugging
ncbi_snp_query("rs121909001")
library("httr")
ncbi_snp_query("rs121909001", config=verbose())
snps <- c("rs332", "rs420358", "rs1837253", "rs1209415715", "rs111068718")
ncbi_snp_query(snps, config=progress())
# }
Run the code above in your browser using DataLab