library(shiny)
library(rsconnect)
library(shinyjs)
shinyUI(fluidPage(
titlePanel("index predictive plot and predictive table"),
mainPanel(
textInput( "index1",label = "code") ,
textOutput("yahooop"),
actionButton("goButton", "Go!"),
tabsetPanel(
tabPanel( "op.index",
plotOutput("open.predict.plot1"),
tableOutput("open.value1"),
textOutput("open.table1"),
tableOutput("open.predict.table1"),
textOutput("open.table2")
),
tabPanel( "close.index",
plotOutput("close.predict.plot1"),
tableOutput("close.value1"),
textOutput("close.table1"),
tableOutput("close.predict.table1"),
textOutput("close.table2"),
textOutput("income")
))
,width = 15,height=15)))
bGlicmFyeShzaGlueSkKbGlicmFyeShyc2Nvbm5lY3QpCmxpYnJhcnkoc2hpbnlqcykKc2hpbnlVSShmbHVpZFBhZ2UoCiAgCiAgdGl0bGVQYW5lbCgiaW5kZXggcHJlZGljdGl2ZSBwbG90IGFuZCBwcmVkaWN0aXZlIHRhYmxlIiksCiAgbWFpblBhbmVsKAogICAgdGV4dElucHV0KCAiaW5kZXgxIixsYWJlbCA9ICJjb2RlIikgLAogICAgdGV4dE91dHB1dCgieWFob29vcCIpLAogICAgYWN0aW9uQnV0dG9uKCJnb0J1dHRvbiIsICJHbyEiKSwKCnRhYnNldFBhbmVsKCAgICAKICB0YWJQYW5lbCggICJvcC5pbmRleCIsCiAgcGxvdE91dHB1dCgib3Blbi5wcmVkaWN0LnBsb3QxIiksCiAgICB0YWJsZU91dHB1dCgib3Blbi52YWx1ZTEiKSwKICAgIHRleHRPdXRwdXQoIm9wZW4udGFibGUxIiksCiAgICB0YWJsZU91dHB1dCgib3Blbi5wcmVkaWN0LnRhYmxlMSIpLAogICAgdGV4dE91dHB1dCgib3Blbi50YWJsZTIiKQogICksCiAgdGFiUGFuZWwoICJjbG9zZS5pbmRleCIsCiAgICBwbG90T3V0cHV0KCJjbG9zZS5wcmVkaWN0LnBsb3QxIiksCiAgICB0YWJsZU91dHB1dCgiY2xvc2UudmFsdWUxIiksCiAgICB0ZXh0T3V0cHV0KCJjbG9zZS50YWJsZTEiKSwKICAgIHRhYmxlT3V0cHV0KCJjbG9zZS5wcmVkaWN0LnRhYmxlMSIpLAogICAgdGV4dE91dHB1dCgiY2xvc2UudGFibGUyIiksCiAgICB0ZXh0T3V0cHV0KCJpbmNvbWUiKQopKQogICAgLHdpZHRoID0gMTUsaGVpZ2h0PTE1KSkpIA==