Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
library(linne)
## -----------------------------------------------------------------------------
cat(as.character(shiny::textInput(inputId = "text", "Label")))
## -----------------------------------------------------------------------------
Linne$new()$
rule(
sel_id("text") %child% sel_tag("label"),
color = "#f4a717"
)$show_css()
## -----------------------------------------------------------------------------
cat(as.character(shiny::selectInput("select", "Select one:", choices = letters[1:3])))
## -----------------------------------------------------------------------------
Linne$new()$
rule(
sel_id("select") # inputId = "select"
%child%
sel_attr("value", "b"), # value = 'b'
color = "#f4a717"
)$show_css()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.