| Title: | Create Sliders for 'Shiny' |
| Version: | 0.1.0 |
| Date: | 2019-03-13 |
| Description: | Create sliders from left, right, top and bottom which may include any html or 'Shiny' input or output. |
| License: | MIT + file LICENSE |
| Encoding: | UTF-8 |
| LazyData: | true |
| Imports: | shiny, jsonlite |
| RoxygenNote: | 6.1.1 |
| URL: | https://github.com/JohnCoene/pushbar |
| BugReports: | https://github.com/JohnCoene/pushbar/issues |
| NeedsCompilation: | no |
| Packaged: | 2019-03-13 20:20:39 UTC; jp |
| Author: | John Coene [aut, cre] |
| Maintainer: | John Coene <jcoenep@gmail.com> |
| Repository: | CRAN |
| Date/Publication: | 2019-03-15 17:11:22 UTC |
Setup Pushbar
Description
Set up pushbar.
Creates element containing pushbar content.
Usage
pushbar_deps()
setup_pushbar(blur = FALSE, overlay = TRUE)
pushbar(..., id = from, from = c("left", "right", "top", "bottom"),
class = NULL, style = pushbar_style())
Arguments
blur |
Whether to blur the background when pushbar is opened. |
overlay |
Whether to darken the background when pushbar is opened. |
... |
Any other valid tags. |
id |
Id of pushbar. |
from |
Wherefrom the pushbar should open. |
class |
Additional class to pass to |
style |
Valid css defaults to |
Details
Creates a div.
Note
You are advised to add padding inside your pushbar i.e.: style="padding:20px;"
Examples
library(shiny)
ui <- fluidPage(
pushbar_deps(),
actionButton("open", "Open pushbar"),
pushbar(
h4("HELLO")
)
)
server <- function(input, output, session){
setup_pushbar()
observeEvent(input$open, {
pushbar_open()
})
}
if(interactive()) shinyApp(ui, server)
Pushbar Buttons
Description
Open and close pushbar programatically.
Usage
pushbar_open(id = c("left", "right", "top", "bottom"))
pushbar_close()
Arguments
id |
Id of pushbar to open. |
Style
Description
Default pushbar CSS, used in pushbar.
Usage
pushbar_style()