Блестящая проверка не показывает сообщение об ошибке

В моем приложении R Shiny есть два textAreaInput(), один для значений x, а другой для значений y. При нажатии кнопки подгоняется простая модель линейной регрессии, и результаты печатаются на основной панели. Это прекрасно работает.

Я пытаюсь проверить textAreaInput(), чтобы показать сообщение об ошибке

--- когда длина(x) != длина(y)

--- когда поля x или y пусты

--- когда поля x или y содержат недостаточно значений (менее двух пар данных)

--- когда поля x или y содержат NA или недопустимые символы

Вот минимальный репрекс-код. Я вижу, что проверки Shiny для вышеуказанных требований не отображаются должным образом на mainPanel, когда условия соблюдены. ИЗМЕНЕННЫЙ КОД НИЖЕ: Сделал код репрекса минимальным и удалил все reactive(), как советовали.

library(shiny)
library(shinythemes)
library(shinyjs)
library(shinyvalidate)

ui <- fluidPage(theme = bs_theme(version = 4, bootswatch = "minty"),
           
  navbarPage(title = div(span("Simple Linear Regression", style = "color:#000000; font-weight:bold; font-size:18pt")),

                tabPanel(title = "",
                  sidebarLayout(
                    sidebarPanel(
                      shinyjs::useShinyjs(),
                      id = "sideBar", 

                      textAreaInput("x", label = strong("x (Independent Variable)"), value = "87, 92, 100, 103, 107, 110, 112, 127", placeholder = "Enter values separated by a comma with decimals as points", rows = 3),
                      textAreaInput("y", label = strong("y (Dependent Variable)"), value = "39, 47, 60, 50, 60, 65, 115, 118", placeholder = "Enter values separated by a comma with decimals as points", rows = 3),

                      actionButton(inputId = "goRegression", label = "Calculate",
                                   style = "color: #fff; background-color: #337ab7; border-color: #2e6da4"),
                      actionButton("resetAllRC", label = "Reset Values",
                                   style = "color: #fff; background-color: #337ab7; border-color: #2e6da4"), #, onclick = "history.go(0)"
                    ),
                    
                    mainPanel(
                      div(id = "RegCorMP",
                            textOutput("xArray"),
                            
                            textOutput("yArray"),
                          
                            textOutput("arrayLengths"),

                            verbatimTextOutput("linearRegression"),
                      ) # RegCorMP
                  ) # mainPanel
               ) # sidebarLayout
          )
      )
  )
  
server <- function(input, output) {
    
    # Data validation
    iv <- InputValidator$new()

    iv$add_rule("x", sv_required())
    iv$add_rule("y", sv_required())

    iv$enable()
    
    # String List to Numeric List
    createNumLst <- function(text) {
      text <- gsub("","", text)
      split <- strsplit(text, ",", fixed = FALSE)[[1]]
      as.numeric(split)
    }

    observeEvent(input$goRegression, {
      
      datx <- createNumLst(input$x)
      daty <- createNumLst(input$y)

      if (length(datx)<2){
        output$xArray <- renderPrint({
          "Not enough x values"
        })
      }
      
      else if (length(daty)<2){
        output$yArray <- renderPrint({
          "Not enough y values"
        })
      }
      
      if (length(datx) != length(daty)) {
        print(length(datx))
        print(length(daty))
        
        output$arrayLengths <- renderPrint({
          "Length of x and length of y must be the same"
        })
      }
     
      else if (length(datx) == length(daty)) {
          output$linearRegression <- renderPrint({ 
            summary(lm(daty ~ datx))
          })
      }
    })

    observeEvent(input$goRegression, {
      show(id = "RegCorMP")
    })
    
    observeEvent(input$resetAllRC, {
      hide(id = "RegCorMP")
      shinyjs::reset("RegCorMP")
    })
}
  
shinyApp(ui = ui, server = server)```