## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(linne)

## ---- echo = FALSE------------------------------------------------------------
cat(as.character(shiny::p("Hello Linne", id = "myId")))

## -----------------------------------------------------------------------------
sel_id("myId")

## -----------------------------------------------------------------------------
sel_tag("p")

## -----------------------------------------------------------------------------
Linne$
  new()$
  rule(
    sel_tag("p"),
    fontSize = 30,
    fontStyle = "italic",
    color = "darkblue"
  )$
  show_css()