Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/ayayron/shinydnd
Creating drag and drop elements in Shiny
https://github.com/ayayron/shinydnd
draggable-elements drop-elements r shiny shiny-apps shinyapps
Last synced: about 1 month ago
JSON representation
Creating drag and drop elements in Shiny
- Host: GitHub
- URL: https://github.com/ayayron/shinydnd
- Owner: ayayron
- Created: 2016-06-11T00:25:28.000Z (over 8 years ago)
- Default Branch: master
- Last Pushed: 2017-09-24T23:19:47.000Z (about 7 years ago)
- Last Synced: 2024-10-27T21:51:11.681Z (about 2 months ago)
- Topics: draggable-elements, drop-elements, r, shiny, shiny-apps, shinyapps
- Language: R
- Size: 65.4 KB
- Stars: 93
- Watchers: 9
- Forks: 26
- Open Issues: 6
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
- awesome-shiny-extensions - shinyDND - Create drag and drop elements in Shiny. (UI Components / Drag and Drop)
- jimsghstars - ayayron/shinydnd - Creating drag and drop elements in Shiny (R)
README
# shinyDND[](https://travis-ci.org/ayayron/shinydnd)
__shinyDND__ is an R package to create Shiny drag and drop elements in R.
See the example at: [https://ayayron.shinyapps.io/dragndrop/](https://ayayron.shinyapps.io/dragndrop/).
That example shown below is also available in the package __/examples/app.R__. (It will be added to shinyapps.io once the package is accepted in CRAN.)
The package can be installed and loaded with:
```r
devtools::install_github('ayayron/shinydnd')
library(shinyDND)
```
## Functions
* _dragUI_: Draggable div element.
* _dragSetUI_: Set of draggable div elements.
* _dropUI_: Droppable div element.
### dragUI
Draggable div elements can now be easily created in your shiny code by running:
```r
dragUI("div6", "bar")
```
where __div6__ is the name of the div element and __bar__ is the text in the element. The elements can be styled using css (the class is currently ```dragelement```) and setting the class parameter.
```r
dragUI("div5", "foo", style = "background-color:red", class = "dragelement")
```
Also, the elements don't have to just be text. You can use HTML tag elements
(e.g. `tags$a("mylink", href="#mylink")`) or `HTML()` inside the element.
```r
dragUI("div4",tags$a("a",href = "foo"))
```
### dropUI
A drop area can be created for these draggable elements with the function:
```r
dropUI("div3")
```
If you try to drop more than one draggable element into a drop area, they are placed horizontally. If you want to place them vertically, you can add the parameters `row_n = X` and `col_n = Y`, where __X__ and __Y__ are the number of rows and columns, respectively, that will be generated in the drop area.
```r
dropUI("div4",row_n = 4, col_n = 3)
```
The drop area can be made reactive, such that when something is dragged
into it a reactive function will run. Using the observeEvent function
where the event is the input name of the dropUI div, can trigger a server action.
Here, if you drag each element into the dropUI it will print the name of the element.
```r
observeEvent(input$div2, {
output$foo = renderText(paste("The dropUI element currently contains:", input$div2))
})
```
Similar to the dragUI elements, the element can be styled using the style parameter or
the class parameter (the class is currently ```dropelement```) in css.
### dragSetUI
To make it easier to create multiple draggable elements there is a secoond function
called DragSetUI. Here you can specify each of the elements in a list and it will create
multiple elements with the div name prefix you feed it.
```r
dragSetUI("div1", textval = list("foo", tags$a("a", href = "bar"), "baz"))
```
## Example
After installing the package you can run this example app: ```runApp(system.file('examples', package='shinyDND'))```. For readability, this code below excludes the explanations above.
```r
library(shiny)
library(shinyDND)
# Define UI for application that draws a histogram
ui <- shinyUI(
mainPanel(
h2("DragUI"),
dragUI("div6","bar"),
dragUI("div5","foo", style = "background-color:red", class = "dragelement"),
dragUI("div4",tags$a("a",href = "foo")),
h2("Drop UI"),
dropUI("div3",row_n = 4, col_n = 3),
h2("Drop UI Reactive"),
dropUI("div2"),
h2("DragSetUI"),
dragSetUI("div1", textval = list("foo",tags$a("a",href = "bar"),"baz"))
)
)
# server with reactive for observing reactive drop event
server = shinyServer(function(input, output,session) {
observeEvent(input$div2,{
output$foo = renderText(
paste("The dropUI element currently contains:", input$div2))
})
})
# Run the application
shinyApp(ui = ui, server = server)
```