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