Хорошо, я новичок в R, но это не должно быть так сложно. Я пытаюсь запустить очень простой разбросанный график в Shiny, как я делал в R Studio, на основе некоторых данных CSV. Когда я запускаю приложение Shiny, я получаю пустое место для графика. График отлично работает, когда я запускаю его в R studio. Если у кого-то есть какие-то идеи, пожалуйста, дайте мне знать
library(shiny)
library(shinydashboard)
library(plyr)
# Simple header -----------------------------------------------------------
header <- dashboardHeader(title="Basic")
sidebar <- dashboardSidebar()
body <- dashboardBody(
fluidPage(
fluidRow(
box(plotOutput("Scores", height = 250)),
)
)
)
ui <- dashboardPage(header, sidebar, body, skin="black")
# Setup Shiny app back-end components -------------------------------------
server <- function(input, output) {
output$scatteredplot <- renderPlot ({
data <- read.csv("Scores.csv")
averageTime<-ddply(data, .(IP, OS), summarize, time=mean(time), score=mean(score), status=mean(status))
plot(averageTime$RemediationTime,averageTime$score,xlab="time", ylab="score")
})
}
# Render Shiny app --------------------------------------------------------
shinyApp(ui, server)
