ОШИБКА: Текст, который должен быть написан, должен быть длинным символом-вектором, почему?

Question

Я пытаюсь построить гистограмму в поле () под панелью табуляции.

Вот мой код:

col1 <- c('upto30', '31-45','46-60','61-75', '76abv')
col2 <- c(10,20,30,40,50)

ui <- shinyUI(dashboardPage(
      dashboardHeader(),
      dashboardSidebar(),
      dashboardBody(
      mainPanel(tabsetPanel(type = 'tab',
      tabPanel("",
      box("",
         barplot(col2)))))          )
))

server <- shinyServer(function(input,output){
})
shinyApp(ui,server)

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

Большое спасибо

Answer 1

Возможно, вы хотите отобразить ваш график в server вместо ui:

library(shiny)
library(shinydashboard)

ui <- shinyUI(dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    mainPanel(tabsetPanel(type = 'tab'),
                          tabPanel("",
                                   box("",
                                       plotOutput("myPlot")))))                                                     
))

server <- function(input,output){
  output$myPlot <- renderPlot(
    barplot(col2)
  )
}

shinyApp(ui,server)