shinyfullscreen
The goal of {shinyfullscreen} is to enable users to put some items on fullscreen. This package is the adaptation in R of screenfull.js.
Table of contents
Demos
- Two plots can be displayed on full screen
- Interactive graphs and custom background color on fullscreen only
Installation
Install the CRAN version with:
install.packages("shinyfullscreen")Install the development version with:
# 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:
### 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:
### 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.
### 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. By contributing to this project, you agree to abide by its terms.