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

Rename results module to details

Browse source
This commit is contained in:
Elias Projahn 2022-08-17 16:46:39 +02:00
parent 5bf3aa8a4a
commit da6bae70a9
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/results.R → R/details.R
View file

@ -1,6 +1,6 @@
#' Construct UI for the detailed results panel. #' Construct UI for the detailed results panel.
#' @noRd #' @noRd
results_ui <- function(id) { details_ui <- function(id) {
verticalLayout( verticalLayout(
div( div(
style = "margin-top: 16px", style = "margin-top: 16px",
@ -23,7 +23,7 @@ results_ui <- function(id) {
#' displayed. #' displayed.
#' #'
#' @noRd #' @noRd
results_server <- function(id, filtered_results) { details_server <- function(id, filtered_results) {
moduleServer(id, function(input, output, session) { moduleServer(id, function(input, output, session) {
output$copy <- renderUI({ output$copy <- renderUI({
results <- filtered_results() results <- filtered_results()

2
R/server.R
View file

@ -71,7 +71,7 @@ server <- function(options) {
results_filtered <- filters_server("filters", results) results_filtered <- filters_server("filters", results)
# Server for the detailed results panel. # Server for the detailed results panel.
results_server("results", results_filtered) details_server("results", results_filtered)
output$rank_plot <- plotly::renderPlotly({ output$rank_plot <- plotly::renderPlotly({
preset <- preset() preset <- preset()

2
R/ui.R
View file

@ -162,7 +162,7 @@ ui <- function(options) {
), ),
tabPanel( tabPanel(
title = "Detailed results", title = "Detailed results",
results_ui("results") details_ui("results")
), ),
tabPanel( tabPanel(
title = "g:Profiler", title = "g:Profiler",