How to render default plot in R shiny
问题 I have the below sample code from an application to genarate a plot and render to UI. library(shiny) ui <- fluidPage( selectInput("choice", "Choose", choices = names(mtcars)), actionButton("run", "Run"), plotOutput("some_ui") ) server <- function(input, output, session) { output$some_ui <- renderPlot({ if(input$run==0) return() withProgress(message = paste("Drawing heatmap, please wait."),{ heatmap_render(x,y) ##custom function to generate plot### }) }) } This is not a working example as it