Ошибка довольно информативна, server
не существует. Это обычно происходит, когда скобки не были закрыты должным образом. Убедитесь, что ваш app.R имеет следующую структуру:
library(shiny)
ui <- fluidPage(
# ui code goes here
)
server <- function(input, output, session) {
# server code goes here
}
shinyApp(ui, server)
Если у вас есть ui.R, server.R убедитесь, что у вас также есть app.R или global.R, которые получают как ui.R, так и server.R и обязательно разместите их все в одном месте.