Блестящая проблема: Подзаголовок за пределами

Question

Я разработал блестящее приложение, которое отлично работает на моем ноутбуке, но когда я развертываю сервер, я получаю сообщение «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 = "Kolkata Knight Riders-Раджастхан Royals-AllMatches".

Я хочу t1 = «» Kolkata Knight Riders»& t2 =„Раджастан Royals“

Там не проблема при запуске этого локально

Любое предложение о том, как решить эту проблему, было бы весьма признателен

Answer 1

Пожалуйста, проигнорируйте это. Возможно, ошибка возникла из-за проблемы с переменной. Это можно закрыть. Я исправил ее.