Inicialización y creación interficie

2023-02-24 12:54:55 +01:00
parent a866e85bef
commit a106a3829e
1 changed files with 33 additions and 0 deletions
@@ -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)