Upload New File

code/shiny-apps/panel_sp500/ui.R

+library(plotly)
+
+ui <- fluidPage(
+
+  title = '',
+  fluidRow(
+    column(4, offset = 7, dateRangeInput("date_range", "Intervalo temporal", start = Sys.Date() - 3650), style = "padding-top: 10px")
+  ),
+  fluidRow(
+    column(4, DT::dataTableOutput('x1', height = "1000px"), style='padding-left:10px; padding-top: 100px'),
+    column(1, verticalLayout(
+      actionButton("uno", "1M"),
+      actionButton("dos", "3M"),
+      actionButton("tres", "6M"),
+      actionButton("cuatro", "1Y"),
+      actionButton("cinco", "ALL")
+    ), style = "margin-top: 100px;float:right;"),
+    column(7, plotlyOutput('x2', height = "775px"))
+  ),
+  
+)
\ No newline at end of file