问题 I am trying to hide the spinner at the beginning when no choice has been made yet. This is a simple example of what I have achieved so far. library(shinycssloaders) ui <- fluidPage( selectInput(inputId = "something", label = "Select something:", choices = c('','None', 'All', 'Some'), selected = ''), withSpinner(textOutput(outputId = "text") ) ) server <- function(input, output) { observe({ toggle(id = 'text', condition = F) if(nchar(input$something) > 0 ){ toggle(id = 'text', condition = T)