Shiny UI

ui.R

library(shiny)

shinyUI(pageWithSidebar(
    
    headerPanel("株価"),
    
    sidebarPanel(
        numericInput("code", "code:", 6758),
        textInput("since", "since:", as.character(Sys.Date()-60)),
        textInput("date.end", "date.end:", as.character(Sys.Date())),
        selectInput("time.interval", "time.interval:", 
                    choices = c("daily", "weekly", "monthly"))        
    ),
    
    mainPanel(
        plotOutput("plot")
    )
))