do wymiany pętli ma zerową długość

for (i in 1:length(input$count))

{ 

 id<-paste("text",i)

 titles[i]<-input$id

}

library(shiny)

ui <- fluidPage(numericInput("count", "Number of textboxes", 3), 

hr(),

uiOutput("textboxes"))

server <- function(input, output, session) {

 output$textboxes <- renderUI({

 if (input$count == 0)

 return(NULL)

 lapply(1:input$count, function(i) {

 id <- paste0("text", i)

 print(id)// its prints the text1, text2,text3

 numericInput(id, NULL, value = abc)

 print(input$text1)//it should print value abc , but it is not, why?? })

 })

}