Only rename the element column if it is present in the data frame fixes

mkao006#11
paulrougieux · Feb 13, 2023 · b645e19 · b645e19
1 parent 6f19562
commit b645e19
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/FAOSTAT/R/faostat_bulk_download.R b/FAOSTAT/R/faostat_bulk_download.R
@@ -90,7 +90,7 @@ read_faostat_bulk <- function(zip_file_name,
     # Rename columns to lower case 
     # and replace non alphanumeric characters by underscores.
     names(df) <- gsub("[^[:alnum:]]", "_", tolower(names(df)))
-    if(rename_element){
+    if(rename_element & "element" %in% names(df)){
         df$element <- gsub("[^[:alnum:]]","_",tolower(df$element))
     }
     return(df)