From a106a3829e9fbecc2ee55dd8d167106a44fc0bfa Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Fri, 24 Feb 2023 12:54:55 +0100
Subject: [PATCH] =?UTF-8?q?Inicializaci=C3=B3n=20y=20creaci=C3=B3n=20inter?=
 =?UTF-8?q?ficie?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 TCGA_request/app.R | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 TCGA_request/app.R

diff --git a/TCGA_request/app.R b/TCGA_request/app.R
new file mode 100644
index 0000000..88627ef
--- /dev/null
+++ b/TCGA_request/app.R
@@ -0,0 +1,33 @@
+library(shiny)
+
+ui <- fluidPage(
+
+    # Application title
+    titlePanel("TCGA request"),
+
+    # Sidebar with a slider input for number of bins 
+    sidebarLayout(
+        sidebarPanel(
+          selectInput("ds_input", "Dataset Input", choices=c("endo", "uveal", "prostate")),
+          textInput("gene_input", "Gene", value=""),
+          actionButton("goButton", "Plot")
+        ),
+
+        # Show a plot of the generated distribution
+        mainPanel(
+           plotOutput("distPlot"),
+           plotOutput("plotEndo")
+        )
+    )
+)
+
+# Define server logic
+server <- function(input, output) {
+
+    # output$distPlot <- renderPlot({
+    #     
+    # })
+}
+
+# Run the application 
+shinyApp(ui = ui, server = server)