x <- read.opj(system.file('test.opj', package = 'Ropj'))
head(x$Book2, 7)
comment(x$Book2)
attr(x$Book2, 'commands')
with(x$Book1, head(Sheet2 - Sheet1))
x$MBook1$MSheet1[1:4,1:4]
x$Note1
if ('CP1251' %in% iconvlist()) {
# encoding names aren't guaranteed to be supported across all platforms
x <- read.opj(system.file('test.opj', package = 'Ropj'), 'CP1251')
print(x$cyrillic)
}
str(read.opj(system.file('tree.opj', package = 'Ropj'), tree = TRUE))
Run the code above in your browser using DataLab