forked from thomasp85/shinyFiles
/
file_ext_parser.R
69 lines (65 loc) · 3.78 KB
/
file_ext_parser.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
fileext <- list.files("inst/www/icons/Icons16x16/", pattern = "file_extension_*")
fileext <- sub("file_extension_", "", fileext)
fileext <- sub(".png", "", fileext, fixed = T)
css_fn <- "inst/www/fileIcons.css"
write("", css_fn, append = F)
for (i in fileext) {
write(paste0(".sF-filetype-", i, "::after {"), css_fn, append = T)
write(paste0(" content: url(icons/Icons16x16/file_extension_", i, ".png);"), css_fn, append = T)
write("}", css_fn, append = T)
write(paste0(".sF-icons .sF-filetype-", i, "::after {"), css_fn, append = T)
write(paste0(" content: url(icons/Icons32x32/file_extension_", i, ".png);"), css_fn, append = T)
write("}\n", css_fn, append = T)
}
other <- list(
"page_white_actionscript.png" = c("as"),
"page_white_c.png" = c("c"),
"page_white_code.png" = c("lua", "m", "pl", "py", "sh", "js", "css", "fs", "fsx", "el", "lisp", "cl", "lsp", "pas", "s", "m", "f", "for", "f90"),
"page_white_cplusplus.png" = c("C", "cc", "cpp", "CPP", "c++", "cp", "cxx"),
"page_white_csharp.png" = c("cs"),
"page_white_cup.png" = c("java", "class", "jar"),
"page_white_database.png" = c(
"4db", "4dd", "4dindx", "4dindy", "4dr", "adt", "apr", "box",
"chml", "daf", "dat", "db", "dbf", "eap", "egt", "ess", "fdb",
"fp", "fp3", "fp5", "fp7", "frm", "gdb", "gtable", "kexi", "kexic",
"myd", "myi", "ncf", "nsf", "ntf", "nv2", "odb", "ora", "pdb",
"pdi", "pdx", "prc", "rec", "rel", "rin", "sdb", "sdf", "sql",
"udl", "wadata", "waindx", "wajournal", "wamodel", "wdb", "wmdb",
"4DB", "4DD", "4DIndy", "4DIndx", "4DR", "ADT", "APR", "BOX",
"CHML", "DAF", "DAT", "DB", "DBF", "EGT", "ESS", "EAP", "FDB",
"FP", "FP3", "FP5", "FP7", "FRM", "GDB", "GTABLE", "KEXI", "KEXIC",
"MYD", "MYI", "NCF", "NSF", "NTF", "NV2", "ODB", "ORA", "PDB",
"PDI", "PDX", "PRC", "SQL", "REC", "REL", "RIN", "SDB", "SDF",
"UDL", "waData", "waIndx", "waModel", "waJournal", "WDB", "WMDB",
"dta", "sav", "sas7bdat"
),
"page_white_excel.png" = c("xlm", "xlt", "xlsx", "xlsm", "xltx", "xltm", "xlsb", "xla", "xlam", "xll", "xlw", "csv"),
"page_white_gear.png" = c("conf", "sys", "bat", "ini", "cnf", "config", "cfg", "cf", "ch", "ini2", "opt", "par", "set"),
"page_white_h.png" = c("h"),
"page_white_office.png" = c("ade", "adp", "adn", "accdb", "accdr", "accdt", "mdb", "cdb", "mda", "mdn", "mdt", "mdw", "mdf", "mde", "accde", "mam", "maq", "mar", "mat", "maf", "ldb", "laccdb"),
"page_white_php.png" = c("PHP", "php", "phtml", "php4", "php3", "php5", "phps"),
"page_white_picture.png" = c("tiff", "jif", "jfif", "jp2", "jpx", "j2k", "j2c", "fpx", "pcd"),
"page_white_powerpoint.png" = c("pot", "pps", "pptx", "pptm", "potx", "potm", "ppam", "ppsx", "ppsm", "sldx", "sldm"),
"page_white_ruby.png" = c("rb", "rbw"),
"page_white_vector.png" = c("svg", "drw"),
"page_white_word.png" = c("dot", "docx", "docm", "dotx", "dotm"),
"page_white_zip.png" = c("deb", "pkg", "rpm", "tar", "zipx"),
"film.png" = c("amv", "avi", "moov", "qt"),
"music.png" = c("iff", "mp3", "mpa", "ra", "flac", "act", "aac", "mmf"),
"r-data-formats.png" = c("rda", "rdata", "rds")
)
for (i in 1:length(other)) {
filename <- names(other)[i]
extensions <- other[[i]]
extensions <- extensions[!extensions %in% fileext]
for (j in 1:length(extensions)) {
write(paste0(".sF-filetype-", extensions[j], ifelse(j == length(extensions), "::after {", "::after,")), css_fn, append = T)
}
write(paste0(" content: url(icons/Icons16x16/", filename, ");"), css_fn, append = T)
write("}", css_fn, append = T)
for (j in 1:length(extensions)) {
write(paste0(".sF-icons .sF-filetype-", extensions[j], ifelse(j == length(extensions), "::after {", "::after,")), css_fn, append = T)
}
write(paste0(" content: url(icons/Icons32x32/", filename, ");"), css_fn, append = T)
write("}\n", css_fn, append = T)
}