Как сделать коробку для блестящей веб-страницы - PullRequest
Новая
       27

Как сделать коробку для блестящей веб-страницы

0 голосов
/ 14 апреля 2020

Добрый день

Я пытаюсь создать простой коробочный сюжет для блестящей веб-страницы, но по какой-то причине он не работает. Я сделал это в уценке, используя приведенный ниже код, и получил желаемые результаты. 

ggplot(test, aes(x = Date, y = test$Var1, group = Date)) +
  geom_boxplot()

Это то, что я получаю в уценке, что я и хочу для блестящей веб-страницы enter image description here

Следующий код - это то, что я использую для блестящей веб-страницы 

library(readxl)
library(shiny)
library(ggplot2)
library(dplyr)


ui <- fluidPage(
  titlePanel("questionnaire"),
  sidebarLayout(
    sidebarPanel(
      selectInput("question", "Choose a question",
                  colnames(test))
    ),
    mainPanel(
      plotOutput("coolplot")
    )
  )
)

server <- function(input, output) {
  output$coolplot <- renderPlot(
    ggplot(test, aes(x = Date, y = input$question, group = Date)) +
      geom_boxplot()
  )

}

shinyApp(ui = ui, server = server)

Как вы можете видеть, код, который я использую для создания блокпостов, здесь почти такой же, как что я использовал в уценке. Так почему же я получаю это при запуске приложения?

enter image description here

Любая помощь в решении этой проблемы будет принята с благодарностью!

1 Ответ

0 голосов
/ 14 апреля 2020

Мне пришлось использовать следующий код для решения моей проблемы 

server <- function(input, output) {
  output$coolplot <- renderPlot(
    ggplot(test, aes(x = Date, y = get(input$question), group = Date)) +
      geom_boxplot()
  )
...