kuro1981

#From pverspeelt/Quantfunctions
#https://github.com/pverspeelt/Quantfunctions

#パッケージ・インストール
pack <- c("quantmod", "dygraphs", "htmltools", "magrittr", "TTR", "xts", "ggplot2", "gridExtra", "lubridate")
install.packages(pack[!(pack %in% unique(rownames(installed.packages())))], repos="https://cloud.r-project.org/")

#ロード
for(n in 1:length(pack)){ eval(parse(text = paste0("library(", pack[n], ")"))) }; rm("n", "pack")

kuro1981

################################################################################
# forked from https://gist.github.com/mp4096/1a2279ec7b3dfec659f58e378ddd9aee
# Modified to:
# 1) Create PDF files beside the converted PPT files
# 2) Skip already converted PPT files (if a PDF file with the same name already
#    exists)
################################################################################
# Batch convert all .ppt/.pptx files encountered in folder and all its subfolders
# The produced PDF files are stored in the invocation folder
#