inst/shiny-app/dapdv/ui.R

In imlijunda/tswbench: Tushare Workbench

fluidPage(

  titlePanel("DAPD valuation"),

  sidebarLayout(

    sidebarPanel(
      textInput("api_token", "Tushare API Token:", value = tswbench:::GetToken()),
      textInput("ts_code", "Tushare Code:"),
      numericInput("dist_rate", "Discount Rate:", 0.1),
      numericInput("N", "Years of Stable Growth:", 3, min = 1, step = 1),
      dateInput("start_date", "Historic Growth From:", lubridate::as_date("2010-01-01")),
      selectInput("freq", "Intraday Freq", choices = c(5, 15), selected = 15),
      actionButton("calc", "Calculate"),
      width = 3
    ),

    mainPanel(
      tableOutput("result"),
      plotOutput("roe"),
      plotOutput("pb")
    )

  )

)