Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/JohnCoene/textillate
📄 textillate.js for R
https://github.com/JohnCoene/textillate
r rstats
Last synced: about 2 months ago
JSON representation
📄 textillate.js for R
- Host: GitHub
- URL: https://github.com/JohnCoene/textillate
- Owner: JohnCoene
- License: other
- Created: 2018-01-07T20:25:55.000Z (about 7 years ago)
- Default Branch: master
- Last Pushed: 2020-04-18T09:57:17.000Z (over 4 years ago)
- Last Synced: 2024-05-01T15:30:27.369Z (9 months ago)
- Topics: r, rstats
- Language: R
- Homepage:
- Size: 51.8 KB
- Stars: 10
- Watchers: 3
- Forks: 2
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
- awesome-shiny-extensions - textillate - CSS3 text animations with textillate.js. (UI Components / Animation Effects)
README
[](https://travis-ci.org/JohnCoene/textillate)
# textillate
[textillate.js](http://textillate.js.org/) for R.
## Dependencies
* [jQuery](http://jquery.com/download/)
* [lettering.js](https://github.com/davatron5000/Lettering.js)
* [animate.css](https://github.com/daneden/animate.css)
## Examples
### RMarkdown
``` r
textillate(
"Textillate"
)
textillate(
"Effects",
`in` = list(
effect = "rollIn"
)
)
# Pass options as list
textillate(
"Duration and effect",
`in` = list(
effect = "flipInX"
),
min.display.time = 5000
)
# Or pipe
textillate(
"Duration and effect",
min.display.time = 5000
) %>%
textillateIn(
effect = "flipInX",
delay = 1000,
shuffle = TRUE
)
```
### Shiny
*proxies*
```r
if(interactive()){
library(shiny)
ui <- fluidPage(
actionButton(
"start",
"start"
),
actionButton(
"stop",
"stop"
),
actionButton(
"in",
"in"
),
actionButton(
"out",
"out"
),
textillateOutput('textillate')
)
server <- function(input, output){
output$textillate <- renderTextillate({
textillate("Click to start", auto.start = FALSE) %>%
textillateIn(effect = "fadeIn") %>%
textillateOut(effect = "bounce")
})
observeEvent(input$start, {
textillateProxy("textillate") %>%
textillateStartProxy()
})
observeEvent(input$stop, {
textillateProxy("textillate") %>%
textillateStopProxy()
})
observeEvent(input$in, {
textillateProxy("textillate") %>%
textillateInProxy()
})
observeEvent(input$out, {
textillateProxy("textillate") %>%
textillateOutProxy()
})
}
shinyApp(ui, server)
}
```