Convert Shiny App R code to RMarkdown Shiny App code with Action Buttons

[IVIM]

A question posted at

Convert Shiny App R code to Rmarkdown Shiny App code: with observeEvent and eventReactive

Can you help please to rewrite the following code (from Shiny - Using Action Buttons) into RMarkdown?

# Codes from https://shiny.rstudio.com/articles/action-buttons.html

library(shiny)

ui <- fluidPage(
  # Pattern 1 - Command 
  tags$head(tags$script(src = "message-handler.js")),
  actionButton("do", "Click Me"),
  hr(),
  
  # Pattern 2 - Delay reactions
  actionButton("go", "Go"),
  numericInput("n", "n", 50),
  plotOutput("plot2"), 
)
  
server <- function(input, output, session) {
  
  # Pattern 1 - Command
  observeEvent(input$do,  {
    session$sendCustomMessage(type = 'testmessage',
                              message = 'Thank you for clicking')
  } )
  
  # Pattern 2 - Delay reactions
  randomVals <- eventReactive(input$go, {
    runif(input$n)
  })
  output$plot2 <- renderPlot({
    hist(randomVals())
  })
 }

shinyApp(ui, server)

[nirgrahamuk]

---
title: "button_example"
output: flexdashboard::flex_dashboard
runtime: shiny
---

Column {.sidebar}
-----------------------------------------------------------------------
  

```{r}

actionButton("first_button","push me")
```

Column
-----------------------------------------------------------------------
  ```{r}
renderText({
  paste0("Button was pressed ", input$first_button, " times" )
})
```

[IVIM]

Got it for second pattern.

---
title: "Use of Action button in RMarkdown" 
output: html_document
runtime: shiny
---


```{r}
# Codes from https://shiny.rstudio.com/articles/action-buttons.html

# Pattern 2 - Delay reactions
actionButton("go", "Go")
numericInput("n", "n", 50)
# plotOutput("plot2") 
hr()

# THIS IS WHAT ONE NEEDS TO WRITE HERE:

# Pattern 2 - Delay reactions
randomVals <- eventReactive(input$go, {
  runif(input$n)
})
# output$plot2 <- 
renderPlot({
  hist(randomVals())
})