блестящий показ боковой панели, но не сюжет

Question

Совершенно новый для блестящего, может заставить сервер всплыть - но появится только выпадающий список (без графика).Кроме того, есть ли способ увидеть каждый код одновременно на одном графике?

Текущий сценарий:

ui <- fluidPage(
  titlePanel("sample Title"),
  sidebarLayout(      

     sidebarPanel(
          selectInput("code", "Code:", 
          choices=colnames(stocks[2:ncol(stocks)])),
          hr(),
          helpText("Sample Heading") +
      ),
      mainPanel(
          plotOutput("samplePlot") + 
      )

  )
)

server <- function(input, output) {

  output$samplePlot <- renderPlot(

      ggplot(data = stocks, aes_string(x = 'date', y = input$code)) +
          geom_point() + geom_line() +
          xlab('Sample X') + ylab('Sample Y')
    )
}

shinyApp(ui, server)

SampleFile:

date    code    closeprice   volume    company
1/2/18  ABC     3.00         300       ABC Co
1/3/18  ABC     3.01         301       ABC Co
1/4/18  ABC     3.02         302       ABC Co
1/2/18  DEF     3.00         305       DEF Co
1/3/18  DEF     3.03         308       DEF Co
1/4/18  DEF     3.04         309       DEF Co

Answer 1

Я думаю, что только знаки + в вашем пользовательском интерфейсе все портят.Это должно работать:

ui <- fluidPage(
    titlePanel("sample Title"),
    sidebarLayout(      

        sidebarPanel(
            selectInput("code", "Code:", 
                        choices=colnames(stocks[2:ncol(stocks)])),
            hr(),
            helpText("Sample Heading") 
        ),
        mainPanel(
            plotOutput("samplePlot")  
        )

    )
)

server <- function(input, output) {

    output$samplePlot <- renderPlot(

        ggplot(data = stocks, aes_string(x = 'date', y = input$code)) +
            geom_point() + geom_line() +
            xlab('Sample X') + ylab('Sample Y')
    )
}

shinyApp(ui, server)