From 9fb879a25340727a71bbd60498d775c0d8cd7de6 Mon Sep 17 00:00:00 2001
From: MokeEire <markkbarrett@gmail.com>
Date: Mon, 17 Aug 2020 13:56:27 -0700
Subject: [PATCH] Add text indicating the round in score_check

---
 app.R          | 6 ++++--
 ui_functions.R | 4 ++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/app.R b/app.R
index 08b8564..8de62d8 100644
--- a/app.R
+++ b/app.R
@@ -1357,7 +1357,8 @@ observeEvent(input$resume_no, {
     
     showModal(
       score_check(team = "A", 
-                  players = eligible_shooters))
+                  players = eligible_shooters,
+                  round = round_num()))
   })
   
   # Team A presses score button
@@ -1500,7 +1501,8 @@ observeEvent(input$resume_no, {
     showModal(
       score_check(
         team = "B", 
-        players = eligible_shooters))
+        players = eligible_shooters,
+        round = round_num()))
 
   })
   
diff --git a/ui_functions.R b/ui_functions.R
index 95d165b..5824fdf 100644
--- a/ui_functions.R
+++ b/ui_functions.R
@@ -4,7 +4,7 @@
 # UI functions ------------------------------------------------------------
 
 # Score pop-up dialog box
-score_check <- function(team, players) {
+score_check <- function(team, players, round) {
   # Identify which team scored
   team_scored = paste("ok", team, sep = "_")
   team_colour = if_else(team_scored == "ok_A", "#e26a6a", "#2574a9")
@@ -13,7 +13,7 @@ score_check <- function(team, players) {
   # Ask how many points were scored and by whom
   modalDialog(align = "center", easyClose = T, size = "l",
               # Header
-              h2(str_c("Team ", str_to_upper(team), " Scored"), style = paste("color:", team_colour)),
+              h2(HTML(str_c("Round <span style='font-weight:700'>", round, "</span>", ": ", "<span style='color:", team_colour, "'>", "Team ", str_to_upper(team), " Scored</span>"))),
 
               fluidRow(
                 column(8,