inst/Trivial_Complement_App/app.R

In alexvannoy/PersonalPractice: What the Package Does: Gives me a place to pratice coding R6 OOP in R and asynchronous programming in R.

require(praise)

ui = fluidPage(# App title ----
               titlePanel("Complement Page!"),

               # An action button
               sidebarLayout(
                 actionButton("goButton", label = "Complement me"),

                 #The complement output
                 mainPanel(textOutput(outputId = "ntext"))
               ))

server = function(input, output) {
  ntext <- eventReactive(input$goButton, {
    praise::praise()
  })

  output$ntext <- renderText({
    ntext()
  })
}

shinyApp(ui = ui, server = server)