In gadenbuie/shinyComponents: 'Shiny' Components in 'R Markdown'

initial_header <- "Just a simple demo"

```{ui, .tagList = TRUE, ... = list(message = "MESSAGE")} h3(initial_header) p(message) sliderInput(ns("number"), "Pick a number", min = 0, max = 10, value = 1) verbatimTextOutput(ns("debug"))

```{server, ... = list(times = 1)}
output$debug <- renderPrint(input$number * times)
reactive(input$number)

h3 {
  color: #aaa; 
}

```{js rewriteH3} setTimeout(function() { let h3 = document.querySelector('h3') h3.textContent = 'Just an awesome demo' h3.classList = 'green' }, 3000)

```{sass}
$midnight: #084C61;
$green: #629677;
body {
  color: $midnight;
}
.green {
  color: $green;
}

gadenbuie/shinyComponents documentation built on Feb. 19, 2021, 11:09 p.m.