【发布时间】:2019-06-10 16:15:38
【问题描述】:
所以我最近创建了一个基本应用程序来了解有关 Shiny 的更多信息。
当我在本地(Global.R)尝试时,该应用程序可以工作,但是当我将它分成 ui.R 和 server.R 并将其上传到服务器时,我不断收到错误:
警告:排序错误:找不到对象“mydata”
服务器代码
#import libraries
library(shiny)
library(DT)
library(ggplot2)
library(shinythemes)
mydata <- read.csv("course-proj-data.csv", header = T, sep = ";")
attach(mydata)
server = function(input, output, session){
filterData <- reactive({
mydata[which(mydata$Team == input$team),]
})
output$table1 <- DT::renderDataTable({
DT::datatable(filterData(), selection = "single", rownames = F)
})
}
界面代码
#User Interface
ui = navbarPage(theme = shinythemes::shinytheme("cerulean"), title = ("Fifa World Cup 2018"),
tabPanel(
"Statistics by country",
wellPanel(
selectInput("team", label = h3("Select Country"),
choices = sort(mydata$Team),
selected = 1),
hr(),
fluidRow(column(3, verbatimTextOutput("value")))
),
DT::dataTableOutput("table1")
)
)
非常感谢您的帮助。
【问题讨论】:
-
文件位置是否正确?可以先试试绝对路径吗?
-
全部在一个文件夹/目录中。在引用数据时,我遵循了 Shiny 文档,因此我将其以特定格式放置。
-
就像我说的,首先尝试使用绝对路径来确定这是否是问题所在。之后你可以使用
setwd()来确保你不使用绝对值 -
能否举个绝对路径的例子
-
而不是
course-proj-data.csv,放入完整路径 - 类似于C:/Users/123/course-proj-data.csv
标签: r shiny shiny-server shinyapps