diff --git a/R/server.R b/R/server.R index 2bddabf..d5a8669 100644 --- a/R/server.R +++ b/R/server.R @@ -95,8 +95,8 @@ genes_table <- function(data) { data <- data[, .( "Gene" = glue::glue_data( data, - "{hgnc_name}" + "{hgnc_name}" ), "Rank" = rank, "Percentile" = percentile, diff --git a/R/ui.R b/R/ui.R index 9537f80..f87a655 100644 --- a/R/ui.R +++ b/R/ui.R @@ -75,8 +75,9 @@ ui <- function() { )), plotly::plotlyOutput("scores_plot"), div(paste0( - "Click on gene names to view them using the Ensembl genome ", - "browser." + "Click on gene names to view them using the GTEx website. ", + "There, you can see the tissue specific expression behavior ", + "derived from the samples that this analysis is also based on." )), div(class = "p-1"), DT::dataTableOutput("selected_genes")