# QOL function for setting various commmonly used directories across different PCs/clusters
assignFolders = function()
{
user = Sys.info()['user']
if(user=='c.steele')
{
# MAC
patholDir='/Volumes/grp13$/CI_POGB_Pathology/'
ucbtcdsDir='/Volumes/ucbtcdsh$/'
commonDir='/Volumes/common$/'
grpDir='/Volumes/lgrp10$/CI_Pathology_Steele/'
dropDir='/Users/c.steele/Dropbox/'
homeDir='/Users/c.steele/'
} else if(user=='chris') {
# WORK
patholDir='/media/pathology/CI_POGB_Pathology/'
ucbtcdsDir='/media/ucbtcds/'
commonDir='/media/common/'
grpDir='/media/grp11/CI_Pathology_Steele/'
grpDir2='/run/user/1000/gvfs/smb-share:server=file03.ucl.ac.uk,share=grp11$/CI_Pathology_Steele/'
dropDir='/home/chris/Dropbox/'
homeDir='/home/chris/'
} else {
# LEGION
scratchDir='/scratch/scratch/ucbtcds'
}
if(user%in%c('c.steele','chris'))
{
out = list(patholDir=patholDir,
ucbtcdsDir=ucbtcdsDir,
commonDir=commonDir,
grpDir=grpDir,
dropDir=dropDir,
homeDir=homeDir)
if(user=="chris") out = append(out,list(grpDir2=grpDir2))
return(out)
} else {
return(list(scratchDir=scratchDir))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.