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

Link to GTEx instead of Ensembl

Browse source
This commit is contained in:
Elias Projahn 2022-06-02 09:23:01 +02:00
parent 6fb91e0eff
commit d1398a10f8
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/server.R
View file

@ -95,8 +95,8 @@ genes_table <- function(data) {
data <- data[, .( data <- data[, .(
"Gene" = glue::glue_data( "Gene" = glue::glue_data(
data, data,
"<a href=\"https://www.ensembl.org/Homo_sapiens/Gene/Summary", "<a href=\"https://gtexportal.org/home/gene/{hgnc_name}\" ",
"?db=core;g={gene}\" target=\"_blank\">{hgnc_name}</a>" "target=\"_blank\">{hgnc_name}</a>"
), ),
"Rank" = rank, "Rank" = rank,
"Percentile" = percentile, "Percentile" = percentile,

5
R/ui.R
View file

@ -75,8 +75,9 @@ ui <- function() {
)), )),
plotly::plotlyOutput("scores_plot"), plotly::plotlyOutput("scores_plot"),
div(paste0( div(paste0(
"Click on gene names to view them using the Ensembl genome ", "Click on gene names to view them using the GTEx website. ",
"browser." "There, you can see the tissue specific expression behavior ",
"derived from the samples that this analysis is also based on."
)), )),
div(class = "p-1"), div(class = "p-1"),
DT::dataTableOutput("selected_genes") DT::dataTableOutput("selected_genes")