0

所以我最近创建了一个基本的应用程序来了解更多关于 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")
                )
)

非常感谢你的帮助。

4

1 回答 1

0

我遇到了类似的问题，最后我只是将输入数据保存为 .RData 文件，我在服务器代码中的所有其他内容之前加载了该文件。

# load packages
library(shiny)

load("loaddata.RData")

server <- function(input, output) {
....
于 2019-01-16T14:44:11.097 回答