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
|
# nolint start
options("scipen" = 10000)
## loop through all fonts
fontDir <- "C:\\Users\\Alex\\Desktop\\font_workbooks"
files <- list.files(fontDir, patter = "\\.xlsx$", full.names = TRUE)
files <- files[!grepl("-bold.xlsx", files)]
files2 <- list.files(fontDir, patter = "\\.xlsx$", full.names = FALSE)
files2 <- files2[!grepl("-bold.xlsx", files2)]
font <- tolower(gsub(" ", ".", gsub("\\.xlsx", "", files2)))
strs <- "openxlsxFontSizeLookupTable <- \ndata.frame("
allWidths <- rep(8.43, 29)
names(allWidths) <- 1:29
for(i in seq_along(files)){
f <- font[[i]]
widths <- round(as.numeric(read.xlsx(files[[i]])[2,]), 6)
strs <- c(strs, sprintf('"%s"= c(%s),\n', f, paste(widths, collapse = ", ")))
}
strs[length(strs)] <- gsub(",\n", ")", strs[length(strs)])
## bold ones
## loop through all fonts
fontDir <- "C:\\Users\\Alex\\Desktop\\font_workbooks"
files <- list.files(fontDir, patter = "\\.xlsx$", full.names = TRUE)
files <- files[grepl("-bold.xlsx", files)]
files2 <- list.files(fontDir, patter = "\\.xlsx$", full.names = FALSE)
files2 <- files2[grepl("-bold.xlsx", files2)]
font <- tolower(gsub(" ", ".", gsub("\\-bold.xlsx", "", files2)))
strsBold <- "openxlsxFontSizeLookupTableBold <- \ndata.frame("
allWidths <- rep(8.43, 29)
names(allWidths) <- 1:29
for(i in seq_along(files)){
f <- font[[i]]
widths <- round(as.numeric(read.xlsx(files[[i]])[2,]), 6)
strsBold <- c(strsBold, sprintf('"%s"= c(%s),\n', f, paste(widths, collapse = ", ")))
}
strsBold[length(strsBold)] <- gsub(",\n", ")", strsBold[length(strsBold)])
allStrs <- c(strs, "\n\n\n", strsBold)
cat(allStrs)
# nolint end
|
