Fix string formatting and text output

1 files changed, 1 insertions, 1 deletions

diff --git a/R/server.R b/R/server.R
index ed5ecd7..a2ba674 100644
--- a/R/server.R
+++ b/R/server.R
@@ -142,7 +142,7 @@ server <- function(input, output) {
           output$gridShapeWarn <- shiny::renderText("")
 
         if (is.na(max_scale) || max_scale < 1 / grid_length) {
-          output$gridShapeWarn <- shiny::renderText("Error: The maximum scale
+          output$gridScaleWarn <- shiny::renderText("Error: The maximum scale
             must be at least the reciprocal of the grid length.")
           checks_passed <- FALSE
         }