Я новичок в Shiny, поэтому, возможно, моя диагностика проблемы неверна.Я пытаюсь создать интерфейс, который позволяет пользователю рекурсивно создавать модели, меняя его по мере ввода.Чтобы сделать это, мне нужно извлечь информацию, полученную при первоначальном обучении модели, а затем обучить ее снова.Точнее, я хочу использовать какой-то конкретный индекс и использовать его для обучения, но каждый раз, когда я пытаюсь получить доступ к этим номерам, я получаю сообщение об ошибке.
Мой сервер сейчас выглядит так:
server <- shinyServer(function(input, output, session) {
output$x12 = DT::renderDataTable(dataset[c(6,8)], server = FALSE)
output$y12 = renderPrint(input$x12_rows_selected)
index <- reactive({
index <- input$x12_rows_selected
return(index)
})
modelo <- eventReactive(input$do, {
#Train model using indexes above
return(modelo_svm)
})
pred <- eventReactive(input$do, {
return(predict(modelo(), teste, type = 'prob')
)})
output$novos <- renderDataTable(
dataset[which(pred()$sim > .7),c(6,8)])
subset_data <- eventReactive(input$do, {
dataset[which(pred()$sim <.7 & pred()$sim > .3), c(6,8)]
})
output$novos2 <- renderDataTable({
subset_data()
})
# I want to take this "novos_index" and put it in the index() above.
novos_index <- reactive({
return(which(dataset$`Texto do Comentário` %in% subset_data()$`Texto do Comentário`[input$novos2_rows_selected]))
})
})
С моей точки зрения, я пытаюсь получить информацию от чего-то, что исчезнет, когда я снова обучу модель, и это является источником проблемы.Любые идеи?
РЕДАКТИРОВАТЬ
Я изменил раздел индекса и добавил переменные, которые я хотел бы содержать:
index <- reactive({
index <- input$x12_rows_selected
if(grepl("\\d", novos_index())){ #it checks if there are numbers in the element
index <- append(indices, novos_index())
}
return(index)
})
Но он возвращает сообщение об ошибке:«В измеренных показателях производительности отсутствовали значения. Ошибка: использование стека C 7969188 слишком близко к пределу»