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")