Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/etiennebacher/shinyfullscreen
Display HTML Elements on Full Screen in 'Shiny' Apps Using 'Screenfull.js'
https://github.com/etiennebacher/shinyfullscreen
Last synced: 12 days ago
JSON representation
Display HTML Elements on Full Screen in 'Shiny' Apps Using 'Screenfull.js'
- Host: GitHub
- URL: https://github.com/etiennebacher/shinyfullscreen
- Owner: etiennebacher
- License: other
- Created: 2020-12-11T19:58:35.000Z (almost 4 years ago)
- Default Branch: master
- Last Pushed: 2023-04-20T14:31:06.000Z (over 1 year ago)
- Last Synced: 2024-10-11T18:19:08.277Z (28 days ago)
- Language: R
- Homepage:
- Size: 1.98 MB
- Stars: 33
- Watchers: 2
- Forks: 2
- Open Issues: 1
-
Metadata Files:
- Readme: README.md
- License: LICENSE
- Code of conduct: CODE_OF_CONDUCT.md
Awesome Lists containing this project
- awesome-shiny-extensions - shinyfullscreen - Display HTML elements on full screen using 'screenfull.js'. (Miscellaneous / UI Customization)
- jimsghstars - etiennebacher/shinyfullscreen - Display HTML Elements on Full Screen in 'Shiny' Apps Using 'Screenfull.js' (R)
README
# shinyfullscreen
[](https://codecov.io/github/etiennebacher/shinyfullscreen) [](https://github.com/etiennebacher/shinyfullscreen/actions) [](https://CRAN.R-project.org/package=shinyfullscreen) 
[](https://github.com/etiennebacher/shinyfullscreen/actions/workflows/R-CMD-check.yaml)
The goal of `{shinyfullscreen}` is to enable users to put some items on fullscreen. This package is the adaptation in R of [`screenfull.js`](https://github.com/sindresorhus/screenfull.js).
## Table of contents
- [Demos](#demo)
- [Installation](#installation)
- [How to use](#howto)
- [Code of Conduct](#CoC)
Demos
* Two plots can be displayed on full screen
* Interactive graphs and custom background color on fullscreen only
Installation
Install the CRAN version with:
```r
install.packages("shinyfullscreen")
```
Install the development version with:
``` r
# install.packages("devtools")
devtools::install_github("etiennebacher/shinyfullscreen")
```
How to use
Note that `{shinyfullscreen}` only works when the Shiny app is launched **in the browser**. It won't work in an RStudio window.
This package provides three functions that are very similar:
* `fullscreen_this()` is useful if you want to enable fullscreen for few elements. Simply wrap this function around the element for which you want to enable fullscreen, and then click on this element when the app runs to display it on fullscreen:
```R
### Only works in browser
library(shiny)
library(shinyfullscreen)
ui <- fluidPage(
fullscreen_this(plotOutput("plot"))
# Also works with magrittr's pipe
# plotOutput("plot") %>%
# fullscreen_this()
)
server <- function(input, output, session) {
output$plot <- renderPlot(plot(mtcars))
}
shinyApp(ui, server, options = list(launch.browser = TRUE))
```
* `fullscreen_those()` is useful if you want to enable fullscreen view for several items without rewriting the same code again and again. Simply write your UI as usual, and then call this function with a list of ids corresponding to the items for which you want to enable fullscreen view. Note that this function has to be called after having created these items:
```R
### Only works in browser
library(shiny)
library(shinyfullscreen)
ui <- fluidPage(
plotOutput("plot"),
plotOutput("plot2"),
# Has to be placed after plot and plot2
fullscreen_those(items = list("plot", "plot2"))
)
server <- function(input, output, session) {
output$plot <- renderPlot(plot(mtcars))
output$plot2 <- renderPlot(plot(AirPassengers))
}
shinyApp(ui, server, options = list(launch.browser = TRUE))
```
* `fullscreen_all()` allows you to put the whole page in fullscreen mode. Note however that this requires clicking on an HTML element.
```R
### Only works in browser
library(shiny)
library(shinyfullscreen)
ui <- fluidPage(
actionButton("page_full", "Show page in fullscreen"),
plotOutput("plot"),
fullscreen_all(click_id = "page_full")
)
server <- function(input, output, session) {
output$plot <- renderPlot(plot(mtcars))
}
shinyApp(ui, server, options = list(launch.browser = TRUE))
```
Code of Conduct
Please note that the shinyfullscreen project is released with a [Contributor Code of Conduct](https://contributor-covenant.org/version/2/0/CODE_OF_CONDUCT.html). By contributing to this project, you agree to abide by its terms.