Text
Text.Rd
Text Module
Super class
DarwinShinyModules::ShinyModule
-> Text
Examples
library(DarwinShinyModules)
md <- c(
"# H1
## H2
### H3",
"**bold text**",
"*italicized text*",
"> blockquote",
"1. First item
2. Second item
3. Third item",
"- First item
- Second item
- Third item",
"`code`",
"---",
"[link](https://www.markdownguide.org/cheat-sheet/)",
"![alt text](https://mdg.imgix.net/assets/images/
san-juan-mountains.jpg?auto=format&fit=clip&q=40&w=1080)",
"| Syntax | Description |
| ----------- | ----------- |
| Header | Title |
| Paragraph | Text |",
"```r
foo <- function(bar, baz) {
return(bar ** baz)
}
foo(2, 3)
```",
" Here's a sentence with a footnote. [^1]
[^1]: This is the footnote.",
"### My Great Heading {#custom-id}",
"term
: definition",
"~~The world is flat.~~",
"- [x] Write the press release
- [ ] Update the website
- [ ] Contact the media",
"That is so funny! :joy:",
"I need to highlight these ==very important words==.",
"H~2~O",
"X^2^"
)
text <- Text$new(markdown = md)
if (interactive()) {
preview(module = text)
}