[fix] ⚠️総数の集計ミスの修正（不明ケースの集計漏れ）

swsoyee · Feb 19, 2020 · ad3af29 · ad3af29
1 parent 63bc7f0
commit ad3af29
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Components/ValueBox.R b/Components/ValueBox.R
@@ -3,7 +3,7 @@ output$totalConfirmed <- renderValueBox({
   # Returns:
   #   valueBox: 確認数 (国内事例)
   valueBox(
-    value = paste0(sum(db[, 2:ncol(db)]), ' (', sum(db[1:47, 2:ncol(db)]), ')'),
+    value = paste0(sum(db[, 2:ncol(db)]), ' (', sum(db[c(1:47, 50), 2:ncol(db)]), ')'),
     subtitle = paste0(lang[[langCode]][9], ' (', lang[[langCode]][4], ')'),
     icon = icon('sad-tear'),
     color = "red"