2016-12-24 60 views
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 =‘拉贾斯坦邦皇家队’

有运行这个本地

就如何解决这个问题将是任何建议时,是没有问题不胜感激

回答

0

请忽略此操作,错误可能是由于某个变量的问题,可能会被关闭,我已经修复了它