output$uiMarker <- renderUI({
lapply(1:input$numberMarkers, function(i){
# markerName <- paste("marker", i, sep = "")
textInput(inputId = paste("marker",i), label = paste("Marker",i))
})
})
output$uiFeaturePlot <- renderUI({
lapply(1:input$numberMarkers, function(i){
#plotName <- paste("plot", i, sep = "")
plotOutput(outputId = paste("plot",i),width = 300,height = 300)
})
})
observeEvent(input$plotManual,{
lapply(1:input$numberMarkers, function(i){
plotFeature <- function(){
if(!is.null(v$scData)){
withProgress(message = "Generating Plot",value = 0,{
FeaturePlot(v$scData,
#features.plot = input$feature1,
features.plot = input[[paste("marker",i)]],
cols.use = c("grey","blue"),
reduction.use = "tsne",do.hover = TRUE)
})
}
}
output[[paste("plot",i)]] <- renderPlot({
plotFeature()
}
)
})
})
ERROR AND WARNINGS:
Warning in if (is.na(col)) { : the condition has length > 1 and only the first element will be used Warning in if (is.na(col)) { : the condition has length > 1 and only the first element will be used Warning: error_y.color does not currently support multiple values. Warning: error_x.color does not currently support multiple values. Warning: line.color does not currently support multiple values.
I'm trying create a dynamic UI in which the user is asked to enter the number of inputs (sliderInput) and based on that the number of textInput boxes are displayed.
The values entered in the textInput Box will generate a feature plot identifying the entered markers.
The object used is a seurat object.