Skip to content

Commit 8870346

Browse files
authored
Merge pull request #50 from KWB-R/dev
try to fix GW classification plot
2 parents 2f30ad9 + b4d15bf commit 8870346

File tree

1 file changed

+5
-1
lines changed

1 file changed

+5
-1
lines changed

vignettes/tutorial.Rmd

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -253,8 +253,9 @@ gwl_classified_only_with_coords <- gwl_classified_only %>%
253253
dplyr::mutate(
254254
Messstellennummer = as.character(Messstellennummer),
255255
) %>%
256-
dplyr::left_join(
256+
dplyr::inner_join(
257257
stations_gwl_master %>%
258+
tibble::as_tibble() %>%
258259
dplyr::select(dplyr::all_of(c("Nummer", rechtswert, hochwert))) %>%
259260
dplyr::rename(Messstellennummer = "Nummer"),
260261
by = "Messstellennummer"
@@ -269,6 +270,8 @@ gwl_classified_only_with_coords <- gwl_classified_only %>%
269270
) %>%
270271
sf::st_transform(crs = 4326)
271272
273+
if(nrow(gwl_classified_only_with_coords) > 0) {
274+
272275
# Create a vector of labels for each row in gwl_classified_only_with_coords
273276
labs <- wasserportal::columns_to_labels(
274277
data = gwl_classified_only_with_coords,
@@ -308,6 +311,7 @@ htmlwidgets::saveWidget(
308311
)
309312
310313
gwlmap
314+
}
311315
```
312316

313317
```{r input_ghactions_map, echo=FALSE, results='asis', eval=is_ghactions}

0 commit comments

Comments
 (0)