# Checks the conversion of the different data types
# by reading a prepared Excel spreadsheet.
#
library(RDCOMClient)
fileName = system.file("examples", "types.xls", package = "RDCOMClient")
if(fileName == "")
stop("No such file ", "examples/types.xls")
fileName = gsub("/", "\\\\", fileName)
e = COMCreate("Excel.Application")
book = e[["Workbooks"]]$Open(fileName)
# e[["Visible"]] = 1
range = book[["ActiveSheet"]][["UsedRange"]]
d = range[["Value"]]
book$Close()
e$Quit()
e = NULL
names(d[[1]]) = unlist(d[[2]])
d = d[[1]]
print(d)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.