johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-25 20:07:23 +02: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 170a92dd56
commit bd3446716b
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.
#' @noRd
results_ui <- function(id) {
details_ui <- function(id) {
verticalLayout(
div(
style = "margin-top: 16px",
@ -23,7 +23,7 @@ results_ui <- function(id) {
#' displayed.
#'
#' @noRd
results_server <- function(id, filtered_results) {
details_server <- function(id, filtered_results) {
moduleServer(id, function(input, output, session) {
output$copy <- renderUI({
results <- filtered_results()

2
R/server.R
View file

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

2
R/ui.R
View file

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