BUG: Missing )

R/process.data/analysis.R

@@ -18,6 +18,7 @@ get_unique_plot_coords <- function(set, data){
 }
 
 x <- rbind.fill(lapply(names(data), get_unique_plot_coords, data=data))
+write.csv(x, file.path(path.processed, "all.sites.coords.csv"), row.names=FALSE,quote=FALSE)
 
 # Map for all sites 
 to.dev(world.map.all.sites(x, add.legend =TRUE),