When making this website, i wanted a simple, reasonable way to make it look good on most displays. Not counting any minimization techniques, the following 58 bytes worked well for me:
main {
max-width: 38rem;
padding: 2rem;
margin: auto;
}
accession2url <- function(x) { | |
prefix <- "ftp://ftp.sra.ebi.ac.uk/vol1/fastq" | |
dir1 <- paste0("/",substr(x,1,6)) | |
dir2 <- ifelse(nchar(x) == 9, "", | |
ifelse(nchar(x) == 10, paste0("/00",substr(x,10,10)), | |
ifelse(nchar(x) == 11, paste0("/0",substr(x,10,11)), | |
paste0("/",substr(x,10,12))))) | |
paste0(prefix,dir1,dir2,"/",x) | |
} |
##Mar 13, 2015 | |
##Some 'date-names' are aliases and map to more than one gene | |
#symbol date name | |
SEPT1 1-Sep | |
SEPT2 2-Sep | |
SEPT3 3-Sep | |
SEPT4 4-Sep | |
SEPT5 5-Sep | |
SEPT6 6-Sep | |
SEPT7 7-Sep |