examples/testAuto.S

In omegahat/SWinTypeLibs: Type Library Information Reader

.Call <-
function(name, ...)
{
  cat("Started .Call", name, "\n")
  ans = get(".Call", "package:base")(name, ...)
  cat("Finished .Call", name, "\n")
  ans
}
rm(.Call)
options(error=recover)
library(SWinTypeLibs)
source("excel.S")
source("autoInterface.S")
.COMSClassMap = character()
library(RDCOMClient)
createCOMSClass(lib[["Workbooks"]], "Workbooks")
cat("Creating application class\n")
createCOMSClass(lib[["_Application"]], "ExcelApplication")
save.image()

if(!exists("no")) {
lapply(names(lib), function(x) { cat(x,"\n"); 
     if(x %in% c("ColorFormat", "ShapeNode", "Constants"))
        return(NULL)
             createCOMSClass(lib[[x]], x)
})
}