From b4d15bf8aaf2b47851b0f6dd98557871d80ba968 Mon Sep 17 00:00:00 2001
From: mrustl <michael.rustler@kompetenz-wasser.de>
Date: Tue, 4 Jun 2024 13:48:55 +0200
Subject: [PATCH] try to fix GW classification plot

which is not working on GH actions (but works locally)
---
 vignettes/tutorial.Rmd | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/vignettes/tutorial.Rmd b/vignettes/tutorial.Rmd
index 9dc74e62..6447868d 100644
--- a/vignettes/tutorial.Rmd
+++ b/vignettes/tutorial.Rmd
@@ -253,8 +253,9 @@ gwl_classified_only_with_coords <- gwl_classified_only %>%
   dplyr::mutate(
     Messstellennummer = as.character(Messstellennummer),
   ) %>% 
-  dplyr::left_join(
+  dplyr::inner_join(
     stations_gwl_master %>%
+      tibble::as_tibble() %>% 
       dplyr::select(dplyr::all_of(c("Nummer", rechtswert, hochwert))) %>% 
       dplyr::rename(Messstellennummer = "Nummer"),
     by = "Messstellennummer"
@@ -269,6 +270,8 @@ gwl_classified_only_with_coords <- gwl_classified_only %>%
   ) %>% 
   sf::st_transform(crs = 4326)
 
+if(nrow(gwl_classified_only_with_coords) > 0) {
+
 # Create a vector of labels for each row in gwl_classified_only_with_coords
 labs <- wasserportal::columns_to_labels(
   data = gwl_classified_only_with_coords, 
@@ -308,6 +311,7 @@ htmlwidgets::saveWidget(
 )
 
 gwlmap
+}
 ```
 
 ```{r input_ghactions_map, echo=FALSE, results='asis', eval=is_ghactions}