Solución para ocultar elementos

Después de probar diferentes soluciones, he conseguido que una me funcione, es tan simple como se muestra a continuación:

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),

  actionButton("button", "Click me"),
  div(id = "texto", "Texto que se oculta"),
)

server <- function(input, output) {
  observeEvent(input$button, {
    toggle("texto")
  })
}

shinyApp(ui, server)