fix #40; new default: show only crashes with injured people

codeformuenster · Nov 26, 2019 · e60575d · e60575d
1 parent b41c9cb
commit e60575d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git 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!"),
                                        "),"),
                                 ""),
                         "<br>",
@@ -634,8 +633,10 @@ server <- function(input, output, session) {
                            crashes_filtered_with_location$cause_2,
                            "<br>id: ", crashes_filtered_with_location$id,
                            "<br>",
-                           "(Ort falsch? Hier korrigieren! [Funktion bald verfügbar]",
-                           # a(href = "https://ms-verkehrsunfaelle-beta.netlify.com/", target = "_blank", "Hier korrigieren!"),
+                           "(Ort falsch? ",
+                           "<a href='https://crashes-editor.codeformuenster.org/korrektur/",
+                          crashes_filtered_with_location$id,
+                          "' target = '_blank'>Hier korrigieren!</a>",
                            ")"),
              group = "Markers") %>%
           showGroup("Markers") %>% 

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