Fixed bug

01_Extract_data_Project_31.Rmd

@@ -335,7 +335,8 @@ The data derive from `r nrow(data.origin)` datasets.
 ```{r}
 soilclim.xylem <- soilclim %>% 
   filter(PlotObservationID %in% plot.sel) %>% 
-  dplyr::select(Elevation=Elevation_median, -Elevation_q2.5, -Elevation_q97.5, -Elevation_DEM.res)
+  dplyr::rename(Elevation=Elevation_median) %>% 
+  dplyr::select(-Elevation_q2.5, -Elevation_q97.5, -Elevation_DEM.res)
 ```
 
 ```{r, echo=F}