https://github.com/epi-interactive/Datatable_Overlay
How to open an R Shiny modal popup from a hyperlink in a datatable
https://github.com/epi-interactive/Datatable_Overlay
javascript modal r shiny
Last synced: 14 days ago
JSON representation
How to open an R Shiny modal popup from a hyperlink in a datatable
- Host: GitHub
- URL: https://github.com/epi-interactive/Datatable_Overlay
- Owner: epi-interactive
- License: mit
- Created: 2019-04-29T23:08:22.000Z (almost 6 years ago)
- Default Branch: master
- Last Pushed: 2024-04-03T02:28:38.000Z (about 1 year ago)
- Last Synced: 2024-11-02T16:08:17.279Z (5 months ago)
- Topics: javascript, modal, r, shiny
- Language: R
- Homepage:
- Size: 102 KB
- Stars: 3
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
- jimsghstars - epi-interactive/Datatable_Overlay - How to open an R Shiny modal popup from a hyperlink in a datatable (R)
README
# Datatable Overlay
Sometimes there are too many rows in a data table to display on one page and scrolling is not the most user-friendly way to solve this. This examples provides a way to layer information into a overlay which can be accessed by clicking a link in a data table.
You can try out the app [here](https://rshiny2.epi-interactive.com/apps/datatable_overlay/)
## How it works
Add an an extra column for the data in your table and attach a Shiny event listener to it to return its index
``` r
dat <- iris %>% mutate(More = paste0('
●●●
')
)
)
```
Listen for the click and show the overlay
``` r
observeEvent(input$DTClick, {
showModal(modalDialog(
title = paste0("You just clicked row ", as.numeric(input$DTClick[1])),
dataTableOutput("modalContent"),
size = "l",
easyClose = TRUE,
footer = NULL
))
})
```
---
Code created by [Epi-interactive](https://www.epi-interactive.com)
As always, our expert team is here to help if you want custom training, would like to take your dashboards to the next level or just need an urgent fix to keep things running. Just get in touch for a chat.
[https://www.epi-interactive.com/contact](https://www.epi-interactive.com/contact)