diff --git a/shinyapp/server.R b/shinyapp/server.R
index 523616e..8b88d03 100644
--- a/shinyapp/server.R
+++ b/shinyapp/server.R
@@ -480,9 +480,8 @@ server <- function(input, output, session) {
if_else(nrow(crashes_filtered_without_location) > 0,
paste0(", davon ", nrow(crashes_filtered_without_location),
" noch ohne Geolokalisation (d.h. nicht auf Karte sichtbar; ",
- "[bald verfügbar: mithelfen und hinzufügen!]",
- # a(href = "https://ms-verkehrsunfaelle-beta.netlify.com/",
- # target = "_blank", "mithelfen und hinzufügen!"),
+ a(href = "https://crashes-editor.codeformuenster.org/",
+ target = "_blank", "mithelfen und hinzufügen!"),
"),"),
""),
"
",
@@ -634,8 +633,10 @@ server <- function(input, output, session) {
crashes_filtered_with_location$cause_2,
"
id: ", crashes_filtered_with_location$id,
"
",
- "(Ort falsch? Hier korrigieren! [Funktion bald verfügbar]",
- # a(href = "https://ms-verkehrsunfaelle-beta.netlify.com/", target = "_blank", "Hier korrigieren!"),
+ "(Ort falsch? ",
+ "Hier korrigieren!",
")"),
group = "Markers") %>%
showGroup("Markers") %>%
diff --git a/shinyapp/ui.R b/shinyapp/ui.R
index fc874fc..1663254 100644
--- a/shinyapp/ui.R
+++ b/shinyapp/ui.R
@@ -108,7 +108,7 @@ ui <- navbarPage(
"Leichtverletzte" = "slightly",
"Schwerverletzte" = "seriously",
"Tote" = "dead"),
- selected = c(),
+ selected = c("slightly", "seriously", "dead"),
multiple = TRUE,
options = list(
'plugins' = list('remove_button')