R блестящий Ошибка в as.vector: невозможно привести тип 'замыкание' к вектору типа 'символ'

Question

Интересно, может ли кто-нибудь помочь мне разобраться со следующей проблемой

ui = fluidPage(
      mainPanel(
       .......
       fluidRow(
             textInput("res",h4("size")) 
             )
          )
      )
server = function(input,output){
         index1 = reactive({...})
         index2 = reactive({...})
         index3 = reactive({...})
         index4 = reactive({...})
observe({
   x = renderText(
       if(input<span class="math-container">$selc2=="EMT"){
       as.character(EMT[index1(),2])
   }else if(input$</span>selc2=="SUS-304"){
           as.character(SUS[index2(),2])
        }else if(input$selc2=="RSG"){
           as.character(RSG[index3(),2])
        }else{
           as.character(PVC_p[index4(),2])
        }
        )
})
    updateTextInput("res",
                   value = paste(x))
}

Я пытаюсь обновить значение textInput, но оно всегда показывает

error in as.vector: cannot coerce type 'closure' to vector of type 'chracter' EMT, SUS, RSG, PVC_p - это файлы .csv