Невозможно отобразить диаграмму chartjs в Shiny UI

Question

Я работаю над интеграцией пакета chartjs в мое приложение Shiny, и все хорошо .... кроме .... мои графики не будут отображаться в приложении.Они будут отображаться только в консоли просмотра.Я выложил свой код настолько просто, насколько это возможно, для помощи.

library(shinydashboard)
library(shiny)
library(plotly)
library(lubridate)
library(rmarkdown)
library(htmltools)
library(zoo)
library(dygraphs)
library(xts)
library(DBI)
library(RODBC)
library(ggplot2)
library(dplyr)
library(data.table)
library(devtools)
library(chartjs)



ui <- fluidPage(
tags$body(
  plotOutput("plot"))
)
server <- function(input, output) {
  output$plot <-renderPlot({
    chartjs(mtcars, mpg, qsec, labels = row.names(mtcars)) %>% 
      cjsBar
    })
}
shinyApp(ui = ui, server = server)

Как вы можете видеть, я использую предопределенные наборы данных, поэтому не должно быть проблем с данными.У меня также могут быть установлены дополнительные библиотеки.

Кроме того, я попытался переместить вещи и получил тот же результат:

#All libraries
 testplot <- function(){
  chartjs(mtcars, mpg, qsec, labels = row.names(mtcars)) %>% 
    cjsBar
} 

ui <- fluidPage(
tags$body(
  plotOutput("plot"))


)
server <- function(input, output) {
  output$plot <-renderPlot({
    testplot()
    })
}
shinyApp(ui = ui, server = server)

Answer 1

Хорошо, по неизвестным мне причинам, я использовал неправильные команды для вывода и рендеринга.Правильное решение:

testplot <- function(){
  chartjs(mtcars, mpg, qsec, labels = row.names(mtcars)) %>% 
    cjsBar
} 

ui <- fluidPage(
  tags$body(
    chartjsOutput("plot"))


)
server <- function(input, output) {
  output$plot <-renderChartjs({
    testplot()
  })
}
shinyApp(ui = ui, server = server)