Update app.R

dataprofessor · web-flow · commit 90b5a99899b7 · 2020-12-18T21:06:01.000+07:00
diff --git a/shiny/005-bmi/app.R b/shiny/005-bmi/app.R
@@ -19,7 +19,7 @@ ui <- fluidPage(theme = shinytheme("united"),
                            tabPanel("Home",
                                     # Input values
                                     sidebarPanel(
-                                      HTML("<h3>Input parameters</h4>"),
+                                      HTML("<h3>Input parameters</h3>"),
                                       sliderInput("height", 
                                                   label = "Height", 
                                                   value = 175, 
