sidebar id is not in input inside a RMarkdown about shinydashboard HOT 3 OPEN

````
---
title: My rmd
---

# My Rmd

```{r}
library(tidyverse)
```
````

---
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(shiny)
library(shinydashboard)
library(tidyverse)
```

```{r ui, echo=FALSE, context="server"}
dashboardPage(
  dashboardHeader(), 
  dashboardSidebar(
    sidebarMenu(
      # Setting id makes input$tabs give the tabName of currently-selected tab
      id = "tabs",
      
      menuItem("Dashboard", tabName = "dashboard"),
      menuItem("Widgets", tabName = "widgets"),
      menuItem("Charts",
               menuSubItem("Sub-item 1", tabName = "subitem1"),
               menuSubItem("Sub-item 2", tabName = "subitem2")
      )
    ),
    textInput("res", label="You have selected", value = "You've selected: 'NONE'")
  ),
  dashboardBody(
    tabItems(
      tabItem("dashboard", "Dashboard tab content"),
      tabItem("widgets", "Widgets tab content"),
      tabItem("subitem1", "Sub-item 1 tab content"),
      tabItem("subitem2", "Sub-item 2 tab content") 
    )
  )
)
```

```{r server, echo=FALSE, context="server"}
  observe({
    invalidateLater(1000)
    list_of_inputs <- reactiveValuesToList(input)
    cat("TRACE Shiny inputs:\n"); print(names(list_of_inputs))
    if(is.null(input$tabs)) {
      tag = "NULL"
    } else {
      tag = paste0("'",input$tabs,"'")  
    }
    updateTextInput(session, "res", value = paste0("At '",strftime(Sys.time(),"%H:%M:%S"),"' tag: ",tag))
  })