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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
# Workbook ----------------------------------------------------------------
Workbook <- setRefClass("Workbook",
fields = c(
"sheet_names" = "character",
"charts" = "ANY",
"isChartSheet" = "logical",
"colOutlineLevels" = "ANY",
"colWidths" = "ANY",
"connections" = "ANY",
"Content_Types" = "character",
"core" = "character",
"drawings" = "ANY",
"drawings_rels" = "ANY",
"embeddings" = "ANY",
"externalLinks" = "ANY",
"externalLinksRels" = "ANY",
"headFoot" = "ANY",
"media" = "ANY",
"outlineLevels" = "ANY",
"persons" = "ANY",
"pivotTables" = "ANY",
"pivotTables.xml.rels" = "ANY",
"pivotDefinitions" = "ANY",
"pivotRecords" = "ANY",
"pivotDefinitionsRels" = "ANY",
"queryTables" = "ANY",
"rowHeights" = "ANY",
"slicers" = "ANY",
"slicerCaches" = "ANY",
"sharedStrings" = "ANY",
"styleObjects" = "ANY",
"styles" = "ANY",
"tables" = "ANY",
"tables.xml.rels" = "ANY",
"theme" = "ANY",
"vbaProject" = "ANY",
"vml" = "ANY",
"vml_rels" = "ANY",
"comments" = "ANY",
"threadComments" = "ANY",
"workbook" = "ANY",
"workbook.xml.rels" = "ANY",
"worksheets" = "ANY",
"worksheets_rels" = "ANY",
"sheetOrder" = "integer",
"ActiveSheet" = "integer"
)
)
# Style -------------------------------------------------------------------
Style <- setRefClass("Style",
fields = c(
"fontName",
"fontColour",
"fontSize",
"fontFamily",
"fontScheme",
"fontDecoration",
"borderTop",
"borderLeft",
"borderRight",
"borderBottom",
"borderTopColour",
"borderLeftColour",
"borderRightColour",
"borderBottomColour",
"borderDiagonal",
"borderDiagonalColour",
"borderDiagonalUp",
"borderDiagonalDown",
"halign",
"valign",
"indent",
"textRotation",
"numFmt",
"fill",
"wrapText",
"locked",
"hidden",
"xfId"
),
methods = list()
)
# Sheet_Data --------------------------------------------------------------
Sheet_Data <- setRefClass("Sheet_Data",
fields = c(
"rows" = "integer",
"cols" = "integer",
"t" = "integer",
"v" = "character",
"f" = "character",
"style_id" = "ANY",
"data_count" = "integer",
"n_elements" = "integer"
)
)
# Worksheet ---------------------------------------------------------------
WorkSheet <- setRefClass("WorkSheet",
fields = c(
"sheetPr" = "character",
"dimension" = "character",
"sheetViews" = "character",
"sheetFormatPr" = "character",
"cols" = "character",
"sheet_data" = "Sheet_Data",
"autoFilter" = "character",
"mergeCells" = "ANY",
"conditionalFormatting" = "character",
"dataValidations" = "ANY",
"dataValidationsLst" = "character",
"freezePane" = "character",
"hyperlinks" = "ANY",
"sheetProtection" = "character",
"pageMargins" = "character",
"pageSetup" = "character",
"headerFooter" = "ANY",
"rowBreaks" = "character",
"colBreaks" = "character",
"drawing" = "character",
"legacyDrawing" = "character",
"legacyDrawingHF" = "character",
"oleObjects" = "character",
"tableParts" = "character",
"extLst" = "character"
)
)
# ChartSheet --------------------------------------------------------------
ChartSheet <- setRefClass("ChartSheet",
fields = c(
"sheetPr" = "character",
"sheetViews" = "character",
"pageMargins" = "character",
"drawing" = "character",
"hyperlinks" = "ANY"
)
)
|
