# NOT RUN {
## use tempdir for the example
totable(t.test(wt ~ am, mtcars), filename = file.path(tempdir(), "mtcars.pptx"))
tabs <- inoffice(filename = file.path(tempdir(), "mtcars.pptx"), header = TRUE)
tabs
# }
Run the code above in your browser using DataLab