Function
コメント・参照等
function (download_folder)
{
path_to_folder <- paste0("C:/Users/", Sys.info()["user"], download_folder)
setwd(path_to_folder)
xls_file <- dir(pattern = "xls")
buf0 <- readWorksheetFromFile(xls_file, sheet = 1, check.names = F, header = F)
buf1 <- buf0[-c(3:4, 6), ]
buf2 <- f_fill_cells_column_direction(df = buf1, row = 2)
colnameS <- as.vector(gsub("[[:space:]]", "", sapply(paste0(buf2[2, ], ":", buf2[3, ]), zen2han)))
dup_col <- which(duplicated(colnameS))
colnameS[dup_col] <- paste0(colnameS[dup_col], ":", zen2han(buf2[1, head(dup_col, 1)]))
colnames(buf2) <- colnameS
buf3 <- buf2[-c(1:3), ]
datadf <- data.frame(Date = as.Date(paste0(buf3[, 2], "-", buf3[, 3], "-1")), buf3[, -c(1:3)], stringsAsFactors = F, check.names = F, row.names = NULL)
datadf[, -1] <- apply(datadf[, -1], 2, as.numeric)
return(datadf)
}