Commit 68cd1899 authored by Holger Brandl's avatar Holger Brandl

used fixed port for expression explorer

parent 2fa83cdf
......@@ -151,8 +151,8 @@ app <- shinyApp(
query <- parseQueryString(session$clientData$url_search)
if (!is.null(query[['gene_id']])) {
# http://127.0.0.1:7324/?gene_id=ENSG00000000457
# http://127.0.0.1:7324/?gene_id=ENSG00000000457,ENSG00000001167,ENSG00000001460
# http://127.0.0.1:5241/?gene_id=ENSG00000000457
# http://127.0.0.1:5241/?gene_id=ENSG00000000457,ENSG00000001167,ENSG00000001460
# map ids to symbols if needed
#separate multiple ids
......@@ -168,7 +168,7 @@ app <- shinyApp(
}
if (!is.null(query[['gene_name']])) {
# http://127.0.0.1:7324/?gene_name=TNMD
# http://127.0.0.1:5241/?gene_name=TNMD
url_provided_ids = str_split(query[['gene_name']], ",") %>% unlist
# updateTextInput(session, "gene_name", value = url_provided_ids)
......@@ -234,5 +234,5 @@ app <- shinyApp(
#runApp(app)
runApp(app, launch.browser=TRUE)
runApp(app, launch.browser=TRUE, port=5241)
#shinyApp(ui = ui, server = server)
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment