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')