このコードは xlsx ファイルを読み取り、シート番号と特定の場所 (この場合は temp[2,1]) で見つかった値に基づいて、個別の名前のファイルを作成します。ただし、各ファイルとシートがわずかに異なるため、名前に一貫性がありません。
sheet_to_read <- c(11,12,13,14)
for( excelsheet in files) {
for (sheet in sheet_to_read) {
temp <- read_excel( path = excelsheet, sheet = sheet, col_names = FALSE)
write.csv( temp, file = paste0( "./", gsub("./", "", excelsheet), temp[2,1], sheet,".csv") )
}}
特定の文字列がシート内のどこかに存在する場合、TRUEまたはFALSEでファイルに名前を付ける方法が欲しいです。この場合は「vivax」です。したがって、この場合：
GBD2016_2_915_Boletin Epidemiologico_2016_37sheet21true.xls
GBD2016_2_915_Boletin Epidemiologico_2016_37sheet22false.xls`
サンプル ファイル: https://drive.google.com/file/d/1p4HAuFl7Codine1Vvb8SzA7OHTzraaHz/view?usp=sharing