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

Make preset methods configurable

Browse source
This commit is contained in:
Elias Projahn 2022-08-18 09:21:48 +02:00
parent e9033883a5
commit d61fc157f4
7 changed files with 37 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

5
R/details.R
View file

@ -19,11 +19,12 @@ 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.
#'
#' @noRd
details_server <- function(id, filtered_results) {
details_server <- function(id, options, filtered_results) {
moduleServer(id, function(input, output, session) {
output$copy <- renderUI({
results <- filtered_results()
@ -51,7 +52,7 @@ details_server <- function(id, filtered_results) {
)
})
methods <- geposan::all_methods()
methods <- options$methods
method_ids <- sapply(methods, function(method) method$id)
method_names <- sapply(methods, function(method) method$name)