Aplicación vacía.

Nitrogen/app.R

@@ -0,0 +1,28 @@
+library(shiny)
+
+ui <- fluidPage(
+
+    # Application title
+    titlePanel("Old Faithful Geyser Data"),
+
+    # Sidebar
+    sidebarLayout(
+        sidebarPanel(
+
+        ),
+
+        
+        mainPanel(
+           
+        )
+    )
+)
+
+server <- function(input, output) {
+
+    output$distPlot <- renderPlot({
+    })
+}
+
+# Run the application 
+shinyApp(ui = ui, server = server)