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)))