Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/stla/swipeR
Carousels in R.
https://github.com/stla/swipeR
carousel htmlwidgets r shiny swiper
Last synced: 8 days ago
JSON representation
Carousels in R.
- Host: GitHub
- URL: https://github.com/stla/swipeR
- Owner: stla
- Created: 2022-12-08T11:36:19.000Z (about 2 years ago)
- Default Branch: main
- Last Pushed: 2023-10-11T07:36:19.000Z (about 1 year ago)
- Last Synced: 2024-11-14T01:09:19.198Z (28 days ago)
- Topics: carousel, htmlwidgets, r, shiny, swiper
- Language: R
- Homepage:
- Size: 17.6 MB
- Stars: 11
- Watchers: 4
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
- jimsghstars - stla/swipeR - Carousels in R. (R)
README
# swipeR
[](https://github.com/stla/swipeR/actions/workflows/R-CMD-check.yaml)
___
I finally found a way to make the Shiny slider work in the carousel. One has
to include it in a `div` with the class `swiper-no-swiping`:
```r
tags$div(
class = "swiper-no-swiping",
sliderInput(
inputId = "slider", label = "Base font size:",
value = 12, min = 10, max = 20
)
)
```
- To include an image in a carousel from a file, you can use **base64** encoding:
```{r}
library(swipeR)
library(htmltools)
library(base64enc)
b64 <- dataURI(file = "path_to_image.png", mime = "image/png")
wrapper <- swipeRwrapper(
tags$img(src = b64, style = "width: 500px; margin: auto;"),
......
)
swipeR(wrapper, height = "400px", navigationColor = "navy")
```
- To include **plotly** graphics in a carousel in R Markdown, you can do:
```{r}
library(swipeR)
library(htmltools)
library(plotly)
g1 <- ggplot(mtcars, aes(disp, wt)) + geom_point() + ggtitle("Plot 1")
g2 <- ggplot(mtcars, aes(drat, wt)) + geom_point() + ggtitle("Plot 2")
g3 <- ggplot(mtcars, aes(qsec, wt)) + geom_point() + ggtitle("Plot 3")
wrapper <- swipeRwrapper(
tags$div(style = "width: 500px; margin: auto;", ggplotly(g1)),
tags$div(style = "width: 500px; margin: auto;", ggplotly(g2)),
tags$div(style = "width: 500px; margin: auto;", ggplotly(g3))
)
swipeR(wrapper, height = "400px", navigationColor = "navy")
```
- The package also provides a RStudio addin:
