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 |