Blinking of numeric input

[Peto]

Hi,

Please can somebody help me, I would really appreciate any help.

I prepared the app where I am generating, dynamically, number of numerical and selectinputs(  uiOutput("crops")) based on slider (CombinationSlider), by which I specified number of numeric inputs. see please below how I am generating dynamic amount of numeric inputs.

The issue is that once I am trying to input some numbers, I write e.g. 1 or 2 numbers and after that it starts flashing and blinking, and I can not finish the input.

After some time it stops, but it is really blocking...It does not have any pattern from time to time it just start.

Many thanks for any ideas how to solve it.

Peter

server.r

.....

  output$crops <- renderUI({

    

    NumCrop <<- as.integer(input$CombinationSlider)

    lapply(1:NumCrop, function(i) {

      

      wellPanel(

      

        selectInput(paste0("Oblast",i),label=paste("Select Oblast ",i), 

                        oblastlist<-c(names(OblastList),"pick one"),input[[paste0("Oblast",i)]],width="100%"),

            

            selectInput(paste0("Rajon",i),label=paste("Select Rajon ",i),

                        c(as.character(rajonlist<-sort(unique(ylddata_proxied_final$Rajon[ylddata_proxied_final$Oblast==input[[paste0("Oblast",i)]]]))),"pick one"),input[[paste0("Rajon",i)]],width="100%"),

            selectInput(paste0("Crop",i),label=paste("Select Crop ",i),

                        c(as.character(rajonlist<-sort(unique(ylddata_proxied_final$Crop[ylddata_proxied_final$Oblast==input[[paste0("Oblast",i)]]&ylddata_proxied_final$Rajon==input[[paste0("Rajon",i)]]]))),"pick one"),input[[paste0("Crop",i)]],width="100%"),

            

            numericInput(inputId =paste0( "hectares",i), label = paste0("Hectares Seeded of Crop ",i),min = 0, max = 99999, value = input[[paste0("hectares",i)]],step = 1,width="100%"),

        #numericInput(inputId =paste0( "hectares",i), label = paste0("Hectares Seeded of",i),min = 0, max = 99999, value = input[[paste0("hectares",i)]],step = 1,width="100%"    

        

        hr())

            #             sliderInput(inputId =paste0( "hectares",i), label = paste0("Hectares Seeded of",i),

            #                                                        min = 1, max = 5000, value = input[[paste0("hectares",i)]], step = 1)

            

      

    })

  })

.....

ui.r

...............

fluidRow(

 

  column(3,wellPanel(

       ....... ,

         hr(),

        uiOutput("crops")

  )

         )

...............

[Tareef Kawaf]

This is more of a general shiny question than a shinyapps.io related issue.  Moving to shiny-discuss.

--
You received this message because you are subscribed to the Google Groups "ShinyApps Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shinyapps-use...@googlegroups.com.
To post to this group, send email to shinyap...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shinyapps-users/0dcbdaaf-c69a-4e74-90cb-da340e5a05c5%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.