Corrected another typo

Author: alex-lauer

app.R

@@ -15,7 +15,7 @@ ui <-  fluidPage(
   page_navbar(
     title = "Git in theory",
     theme = bs_theme(bootswatch ="minty"),
-    nav_panel("Commiting",
+    nav_panel("Committing",
               navset_card_tab(
                 nav_panel("Q1",
                           commitq2_ui("q2")),

mods/mod-commitq3.R

@@ -3,7 +3,7 @@ commitq3_ui <- function(id){
   tagList(
     h3("Can you find the version of code Camille needs for journal A?"),
     p('Using your mouse click to checkout each version Camille saved. 
-      Once you find the right one make sure to tag it so we can find it in the future.'),
+      Once you find the right one, make sure to tag it so we can find it in the future.'),
 
     div(id = ns("graph"),
         div(