#' 将多个Excel页签读取到一个列表对象中
#'
#' @param fileName 文件名,如xxxx.xlsx,可包含多个页签
#'
#' @return 返回列表对象
#' @export
#' @import readxl
#'
#' @examples readExcelSheetsIntoList
readExcelSheetsIntoList <- function(fileName="./data-raw/file/ptc_test.xlsx",sheetHeaderName='') {
#library(readxl);
sheets <-readxl::excel_sheets(fileName);
res <-lapply(sheets,function(sheet){
sheetData <-as.data.frame(read_excel(fileName,
sheet = sheet))
if (sheetHeaderName[1] != ''){
names(sheetData) <- sheetHeaderName
}
sheetData;
})
names(res) <- sheets
res;
}
#' 获取所有Excel 页签名称
#'
#' @param fileName 文件名
#'
#' @return 返回值
#' @export
#' @import readxl
#'
#' @examples sheetNames('aaa.xlsx')
sheetNames <- function(fileName="./data-raw/file/ptc_test.xlsx") {
res <- excel_sheets(fileName);
}
#' 获取所有页签数量
#'
#' @param fileName 文件名
#'
#' @return 返回值,整数
#' @export
#'
#' @examples sheetCount('aaa.xlsx')
sheetCount <- function(fileName="./data-raw/file/ptc_test.xlsx") {
res <- length(sheetNames(fileName))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.