gene_locus.r

#necessary installations
source("http://bioconductor.org/biocLite.R")
biocLite("biomaRt")
library("biomaRt")

#use ensembl mart
ensembl = useMart("ensembl")
#reference homosapiens
ensembl = useDataset("hsapiens_gene_ensembl", ensembl)

#set gene to find
geneToFind = c("PolB")
#set attributes to list after search
attributes = c('hgnc_symbol', 'chromosome_name', 'start_position', 'end_position', 'band')
#set filter, in this case its gene name
filters = 'external_gene_name'

#call the getBM function to get result
getBM(attributes, filters, geneToFind, ensembl)

#output
#  hgnc_symbol chromosome_name start_position end_position   band
#1        POLB               8       42338454     42371808 p11.21