Сохраните реактивное значение, прежде чем оно исчезнет - PullRequest
0 голосов
/ 25 февраля 2019

Я новичок в 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 слишком близко к пределу»

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...