Я пытался добавить график, который я сделал, к своему блестящему макету, но когда я запускаю проект, он показывает мне эту ошибку.
У меня есть следующий код для serve.R:
library(shiny)
df <-read.csv('./CSV/data.csv')
shinyServer(function(input, output) {
output$scatterPlot <- renderHighchart({
hchart(df, "scatter",
hcaes(x=df$revenue,y=df$users,group=df$name_group))
})
})
И для интерфейса я получил:
library(shiny)
library(shinydashboard)
library(shinycssloaders)
titlePanel("my_app")
header <- dashboardHeader(title = "my_app" )
sidebar <- dashboardSidebar(
sidebarMenu(
menuItem("Overview", tabName = "overview", icon = icon("book-open"))
)
body <- dashboardBody(
tabItems(
tabItem("overview",
fluidRow(
box(
title = "revenue_vs_user", status = "primary",
withSpinner(highchartOutput("scatterPlot"))
))
)
))
shinyUI(dashboardPage(header, sidebar, body, skin = "blue"))
Все ответы, которые я виделна этой ошибке скажем, что это происходит потому, что данные не читаются правильно, но в моих переменных окружения данные появляются, поэтому они читаются.Спасибо за помощь!