From a3fb3addb8f2e0d3c945e0b9faeb48bd9ece6490 Mon Sep 17 00:00:00 2001
From: Dhanaprakash Jambulingam <dhanaprakash.jambulingam@utu.fi>
Date: Wed, 16 Jan 2019 16:11:18 +0200
Subject: [PATCH] README, UI.R and Server.R updated
---
Data/README.md | 4 ++--
server.R | 9 +++------
ui.R | 2 +-
3 files changed, 6 insertions(+), 9 deletions(-)
diff --git a/Data/README.md b/Data/README.md
index fa50d5d..09e46b3 100644
--- a/Data/README.md
+++ b/Data/README.md
@@ -1,5 +1,5 @@
### Example dataset
-Example datasets can be found at ``corplot\Data\`. The datasets have been downloaded from GEO database (DataSet Record GDS3973,GDS5072).
+Example datasets can be found at `corplot\Data\` or can be obtained from [gitlab](https://gitlab.utu.fi/dhajam/corplot/tree/master/Data). The datasets have been downloaded from GEO database (DataSet Record GDS3973,GDS5072) and formatted so that they can be used with CORPLOT. For more information on the dataset format, please refer `FAQ`.
-For more information on the dataset format, please refer `FAQ`
+Note: The image in the manuscript was generated using in-house unpublished data, so it is not provided as example data.
diff --git a/server.R b/server.R
index e3c7e9c..029712f 100755
--- a/server.R
+++ b/server.R
@@ -609,15 +609,12 @@ shinyServer(function(input, output, session) {
- observeEvent(input$show1, {
+ observeEvent(input$showEx, {
showModal(
modalDialog(
- HTML(
- '<img src="https://gitlab.utu.fi/dhajam/corplot/blob/master/Markdown/FAQ.md">'
- ),
title = "Example expression file",
- easyClose = TRUE,
- footer = NULL
+ "Formatted example datasets from the GEO database can be obatined from <https://gitlab.utu.fi/dhajam/corplot/tree/master/Data>",
+ easyClose = TRUE
)
)
})
diff --git a/ui.R b/ui.R
index 1b9c687..645c330 100755
--- a/ui.R
+++ b/ui.R
@@ -16,7 +16,7 @@ navbarPage(
sidebarLayout(
sidebarPanel(
fileInput('uploadData', 'Choose Data File'),
- actionLink(inputId = "show1", label = "Example file"),
+ actionLink(inputId = "showEx", label = "Example file"),
uiOutput('idColSelect'),
uiOutput('columnSelect'),
shinyBS::bsButton('doBiomart', "Get Gene Symbols", style="primary", size="small", type="action"),
--
GitLab