error in function lm

I am using a data set and when implementing the lm function I get an error with the arguments but I can't find the error

 output$uimodLm <- renderUI({
      selectInput("selecLm", "Selección atributo a replazar",
                  tipo(), multiple = F)
    })
    output$uimodLmY <- renderUI({
      selectInput("selecLmY", "Selección atributo para regresion",
                  tipo(), multiple = F)
    })
    ###----------render slider minimo
    output$uisliderLm <- renderUI({
      sliderInput("sliderLm", label = h3("Seleccione el rango"), step=1, min = 1,
                  max = nrow(archivo3()), value = c(1,max))
    })
    ####------------ render CAMBIAR NAS POR MANUAL
    
    archivo32 <- reactive({
      a <- archivo3()
      columnaNum <- input$selecLm
      cambioNum <- input$num
      regre <- lm(!!sym(input$selecLm) ~ !!sym(input$selecLmY), data = a)
      predict(regre, a)
      contaNa <- which.na(a$estrato)