library(dplyr)
library(allenBrain)
# calb dataset #71717640
# cerebellum cell id = 512
# calb
datasetID = getGeneDatasets(gene = 'Calb1',planeOfSection = 'coronal',
                            probeOrientation = 'antisense')
imageID = structureToImage(datasetID = datasetID[1], regionIDs = 512)
atlasID = imageToAtlas(imageID$section.image.id,imageID$x,imageID$y,planeOfSection ='coronal')
downsample=0
downloadImage(imageID = imageID$section.image.id, 
              view = 'projection',
              outputFile = 'calb.jpg',
              downsample = downsample)
# syn1 dataset (only 1 coronal)
datasetID = getGeneDatasets(gene = 'Syn1',planeOfSection = 'coronal',
                            probeOrientation = 'antisense')
imageID = structureToImage(datasetID = datasetID[1], regionIDs = 512)
atlasID = imageToAtlas(imageID$section.image.id,imageID$x,imageID$y,planeOfSection ='coronal')
downloadImage(imageID = imageID$section.image.id, 
              view = 'projection',
              outputFile = 'syn1.jpg',
              downsample = downsample)