Function

コメント・参照等
  • 景気動向指数ファイルを整形する関数

FUN = f_read_keikidoukoushisuu_chouki.r
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)
}