R Shiny не загружается - PullRequest
Новая
       65

R Shiny не загружается

0 голосов
/ 16 января 2019

Итак, я недавно создал базовое приложение, чтобы узнать больше о 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")
                )
)

Большое спасибо за вашу помощь.

1 Ответ

0 голосов
/ 16 января 2019

У меня была похожая проблема, как у вас, в конце я просто сохранил входные данные в виде файла .RData, который я загрузил перед всем остальным в коде Сервера. 

# load packages
library(shiny)

load("loaddata.RData")

server <- function(input, output) {
....
...