show_hide_reprex

library(shiny)
library(shinyjs)

mod1UI = function(id){
  ns = NS(id)
  fluidRow(
    shinyjs::useShinyjs(), 
    actionButton('show', 'Show'),
    actionButton('hide', 'Hide'),
    # shinyjs::hidden(
      div(id = "div1", 
          h4("Div to Hide/show")
      )
    # )
  )
}

mod1 = function(input, output, session){
  
  ns = session$ns
  
  observeEvent(input$show, {
      shinyjs::show(ns('div1'))
  })
  
  observeEvent(input$hide, {
    shinyjs::hide(ns('div1'))
  })
}

ui <- fluidPage(
  mod1UI('mod1')
)

server <- function(input, output, session){
  callModule(mod1, 'mod1')
}

# Run the application
shinyApp(ui = ui, server = server)