R 我测试运行了我的闪亮应用程序,它成功了。然而,当我上传到shinyapp.io并运行它时,它给了我一个错误
我在shinyapp.io服务器上运行了我的闪亮应用程序,它给了我以下错误: “错误:“closure”类型的对象不可子集” 我有以下server.R和UI.R文件: 服务器.RR 我测试运行了我的闪亮应用程序,它成功了。然而,当我上传到shinyapp.io并运行它时,它给了我一个错误,r,shiny,R,Shiny,我在shinyapp.io服务器上运行了我的闪亮应用程序,它给了我以下错误: “错误:“closure”类型的对象不可子集” 我有以下server.R和UI.R文件: 服务器.R library(shiny) library(data.table) library(dplyr) library(ggplot2) data <- data.table::fread(input="final_master_table.csv",header = TRUE, data.table =
library(shiny)
library(data.table)
library(dplyr)
library(ggplot2)
data <- data.table::fread(input="final_master_table.csv",header = TRUE, data.table = TRUE)
data <- data[,V1:=NULL]
shinyServer(function(input, output){
selected_data <- reactive({
minyear <- input$year[1]
maxyear <- input$year[2]
velo <- data %>% group_by(pitcher_name, pitch_type, Year) %>% summarise(velocity = mean(start_speed)) %>%
arrange(velocity) %>% filter(pitcher_name %in% input$pitcher_name) %>% arrange(pitcher_name) %>% filter(Year >= minyear) %>% filter(Year <= maxyear) %>% filter(pitch_type %in% input$pitch_type)
print(velo)
})
output$pitcher_bar <- renderPlot({
p <- ggplot(data=selected_data(), aes(x = Year, y = velocity, group = pitch_type, color = pitch_type)) + geom_line() + geom_point(size=3, fill="white") + xlab("Year") + ylab("Velocity") + ggtitle("Velocity") + theme_bw()
print(p)
})
})
我怀疑需要进行的调整与数据变量有关?您是否也将csv文件上载到服务器?这是您得到的唯一错误吗?我想它正在查找“final_master_table.csv”,它位于您的本地工作目录中,但不在服务器上。解决此问题后,我将确定是否还有更多错误。(只有当一个错误被修复时,其他错误信息才会出现)我正在从我的帐户下载捆绑包。Bundle文件很大,这表明csv文件已提前上载到服务器。csv文件是1GB的大文件。csv文件被上传到服务器上,我刚刚检查过。也许因为csv文件在服务器上,我必须指定urlpath?(指示'data'变量的Server.R脚本是指向我的工作目录的文件路径。)我不知道如何指定csv文件的urlpath。。有人知道怎么找到它吗?你也把csv文件上传到服务器了吗?这是您得到的唯一错误吗?我想它正在查找“final_master_table.csv”,它位于您的本地工作目录中,但不在服务器上。解决此问题后,我将确定是否还有更多错误。(只有当一个错误被修复时,其他错误信息才会出现)我正在从我的帐户下载捆绑包。Bundle文件很大,这表明csv文件已提前上载到服务器。csv文件是1GB的大文件。csv文件被上传到服务器上,我刚刚检查过。也许因为csv文件在服务器上,我必须指定urlpath?(指示'data'变量的Server.R脚本是指向我的工作目录的文件路径。)我不知道如何指定csv文件的urlpath。。有人知道怎么找到它吗?
library(shiny)
library(data.table)
library(dplyr)
library(ggplot2)
shinyUI(fluidPage(
titlePanel("Velocity Attribute"),
sidebarLayout(
sidebarPanel(
# Slider for setting year parameter
sliderInput("year",
"year:",
min=2008,max=2015,value=c(2008,2015)
),
selectInput("pitcher_name","Pitcher Name:", choices = unique(data$pitcher_name)),
selectInput("pitch_type","Pitch Type:", choices = unique(data$pitch_type)),
helpText("Please wait 30 seconds for 2008 to 2015 pitchFx data to load")
),
mainPanel(plotOutput("pitcher_bar"))
)))