johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Move filtering to tabs that use it

Browse source
This commit is contained in:
Elias Projahn 2022-08-18 11:09:22 +02:00
parent 9fb6ca428e
commit 447fdfab4f
4 changed files with 87 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

8
R/details.R
View file

@ -2,6 +2,7 @@
#' @noRd
details_ui <- function(id) {
verticalLayout(
filters_ui(NS(id, "filters")),
div(
style = "margin-top: 16px",
splitLayout(
@ -20,12 +21,13 @@ details_ui <- function(id) {
#' Server for the detailed results panel.
#'
#' @param options Global options for the application.
#' @param filtered_results A reactive containing the prefiltered results to be
#' displayed.
#' @param results A reactive containing the results to be displayed.
#'
#' @noRd
details_server <- function(id, options, filtered_results) {
details_server <- function(id, options, results) {
moduleServer(id, function(input, output, session) {
filtered_results <- filters_server("filters", results)
output$copy <- renderUI({
results <- filtered_results()