0
我开发了一款Shiny应用程序,可以在我的笔记本电脑上完美工作,但是当我部署到服务器时,出现“Error:subscript out of bound”。这个问题似乎是在这些 线闪亮的问题:下标越界
ui.R
sidebarPanel(
selectInput('matches2TeamFunc', 'Select function', IPLMatches2TeamsFuncs),
selectInput('match2', 'Select matches', IPLMatches2Teams,selectize=FALSE, size=20),
uiOutput("selectTeam2")
),
server.R
output$IPLMatch2TeamsPlot <- renderPlot({
m <- strsplit(as.character(input$match2),"-")
print("Hello")
t1 <- m[[1]][1]
t2 <- m[[1]][2]
print(length(m))
teams <- c(t1,t2)
print(teams)
# Load all IPL batsmen
output$selectTeam2 <- renderUI({
selectInput('team2', 'Choose team',choices=teams,selected=input$team2)
})
otherTeam = setdiff(teams,input$team2)
print("Next")
print(otherTeam)
print(input$team2)
analyzeIPLMatches2Teams(input$match2,input$matches2TeamFunc,input$team2,otherTeam)
其中输入$ MATCH2 = “加尔各答骑士 - 拉贾斯坦皇家-allMatches”。
我想T1 =“”加尔各答骑士” & T2 =‘拉贾斯坦邦皇家队’
有运行这个本地
就如何解决这个问题将是任何建议时,是没有问题不胜感激