使用excel_to_csv <- function(path, out_dir = NULL) {
if (is.null(out_dir)) out_dir <- dirname(path)
sheets <- readxl::excel_sheets(path)
filenames <- file.path(out_dir, paste0(sheets, ".csv"))
dats <- lapply(sheets, readxl::read_excel, path = path)
lapply(seq_along(dats), function(i) readr::write_csv(dats[[i]], filenames[i]))
invisible()
}
,以下clang
:
test.cpp
预处理为:
int main() {
int x = 1;
x--;
return x;
}
其中有几行包含# 1 "test.cpp"
# 1 "<built-in>" 1
# 1 "<built-in>" 3
# 342 "<built-in>" 3
# 1 "<command line>" 1
# 1 "<built-in>" 2
# 1 "test.cpp" 2
int main() {
int x = 1;
x--;
return x;
}
+ #
+ number
+ string
。
这些线是什么意思? 这个地方有文件吗?