example for shinyjs

index.Rmd

---
runtime: shiny
---

```{r echo=FALSE, message=FALSE, warning=FALSE}
require(shinyjs)
useShinyjs(rmd=TRUE)

observe({
  updateTextInput(session, 'ID', value = "Updated.")
  disable('ID')
})

textInput("ID", label = "ID:", width = "150px", placeholder = "ID", value = "Not updated.")

```

index2.Rmd

---
title: "Test session variables"
output: 
  flexdashboard::flex_dashboard:
    orientation: row
runtime: shiny
---

```{r}
require(flexdashboard)
require(shinyjs)
useShinyjs(rmd=TRUE)
```

```{r}

observe({
  query = getQueryString()
  ID = query[['ID']]
  active = query[['IDactive']]
  
  if (!is.null(ID)) {
    updateTextInput(session, 'ID', value = ID)
  }
  if(!is.null(active)){
    if(active == '0'){
      disable('ID')
    }
  }
})

```


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

```{r}

textInput("ID", label = "ID:", width = "150px", placeholder = "ID", value = "hi")

```

Row  {data-height=60}
------------------------------------
    
### Other 


Row 
-------------------------------------
    
### Query string
    
```{r}

renderUI({

    query <- getQueryString()
    return(HTML(jsonlite::toJSON(query)))

})

```