kwb-r / kwb.budget Goto Github PK

file <- "...../xxx_Arctik_FINAL.xlsx"
region_names <- as.character(openxlsx::getNamedRegions(file))

 lapply(region_names, function(name) {
   try(openxlsx::read.xlsx(file, namedRegion = name))
 })

print(region_names)
 [1] "average_person_month"       "details_consumables"        "details_equipment"          "details_personnel"         
 [5] "details_subcontracting"     "details_travelling"         "range_average_person_month" "range_consumables"         
 [9] "range_contact"              "range_direct"               "range_equipment"            "range_indirect"            
[13] "range_partner"              "range_personnel"            "range_subcontracting"       "range_total"               
[17] "range_travelling"           "selectwp"                   "threshold_justification"    "total_consumables"         
[21] "total_direct"               "total_equipment"            "total_indirect"             "total_personnel"           
[25] "total_subcontracting"       "total_travelling" 

[[18]]
[1] "Error in gsub(sheet, \"\", region, fixed = TRUE) : \n  ungültiges 'pattern' Argument\n"
attr(,"class")
[1] "try-error"
attr(,"condition")
<simpleError in gsub(sheet, "", region, fixed = TRUE): ungültiges 'pattern' Argument>

Budget/
Budget/10_Filled_out_forms/....
Budget/20_Summary_Files/Partner_country_type.csv