R try reload

index.Rmd

---
title: "test observe after reload"
runtime: shiny_prerendered
output: 
  html_document
---

```{r setup, include=FALSE}

library(shiny)
cnt <- 0
```

```{r context='render', echo=FALSE}
 actionButton("do", "Click Me")
```
```{r context='render', echo=FALSE}
div(textOutput('tcnt'))
```
```{r context='server', echo =FALSE}
 observeEvent(input$do, {
   cnt <<- cnt +1
   output$tcnt <- renderText(cnt)
 })
 
```