news links open externally _blank #19

JohnCoene · Mar 26, 2020 · 348884e · 348884e
1 parent ee1d329
commit 348884e
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 9 deletions.
diff --git a/R/app_server.R b/R/app_server.R
@@ -58,15 +58,6 @@ app_server <- function(input, output,session) {
     news <- data$news
   }
 
-  # correct
-  df <- df %>% 
-    dplyr::mutate(
-      country = dplyr::case_when(
-        country == "Czech Republic" ~ "Czech Rep",
-        TRUE ~ country
-      )
-    )
-
   # counts jhu
   callModule(mod_count_server, "count_ui_1", df = df, type_filter = "confirmed")
   callModule(mod_count_server, "count_ui_2", df = df, type_filter = "death")

diff --git a/R/mod_news.R b/R/mod_news.R
@@ -61,6 +61,7 @@ mod_news_server <- function(input, output, session, df){
           ),
           footer = tags$a(
             class = "link external article-link",
+            target = "_blank",
             article$source,
             href = article$url
           )