From d1398a10f85dce608b0526e23bbbf8d87f3b15f1 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Thu, 2 Jun 2022 09:23:01 +0200
Subject: [PATCH] Link to GTEx instead of Ensembl

---
 R/server.R | 4 ++--
 R/ui.R     | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

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,
-      "<a href=\"https://www.ensembl.org/Homo_sapiens/Gene/Summary",
-      "?db=core;g={gene}\" target=\"_blank\">{hgnc_name}</a>"
+      "<a href=\"https://gtexportal.org/home/gene/{hgnc_name}\" ",
+      "target=\"_blank\">{hgnc_name}</a>"
     ),
     "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")