rbind () с row_selected в DT - PullRequest
Новая
       4

rbind () с row_selected в DT

0 голосов
/ 14 февраля 2020

Я создаю приложение R и недавно наткнулся на пакет DT. Мне не хватает времени, и поэтому, потратив пару часов на stackoverflow без удачи, я решил задать вопрос. В серверной части моего приложения есть две части: одна, где данные отображаются после нескольких вычислений, а другая - для l oop для выбранных строк, и результаты для каждого запуска объединяются с использованием rbind для получения кадра данных. 

     server<-function(input, output, session){
      ts_info<-eventReactive(input$goButton,{
        #Do something with one of the textInputs and return a dataframe called data1
      return(data1)

      })

      output$results<-renderDT(ts_info())


      all_data<-data.frame() #create an empty dataframe

      dataset <- eventReactive(input$results_rows_selected,{

      timeseriespath<-ts_info()$ts_path[input$results_rows_selected] #instead of row index get the value from column 'ts_path' for the selected rows

       TS_URL<-read_html("http://xxxxxxtimeseriespath//yyy")
       tbls<-html_nodes(TS_URL,"table")
       tbls_ls <- TS_URL %>%
      html_nodes("table") %>%
      .[1] %>%
      html_table(fill = TRUE)

      data2<-data.frame(tbls_ls)
      all_data<-rbind(all_data,data2) #rbind with the existing all_data dataframe
        return(all_data)
      })


      output$finaldataset <- renderTable({ 
        dataset()
      })


}

Когда у меня выбрана только строка, набор данных () правильно отображается в приложении. В тот момент, когда я выбираю более одной строки, я получаю сообщение об ошибке ниже. Предупреждение: Ошибка в файле doc_parse_file: ожидается одно строковое значение: [тип = символ; Степень = 2]. По сути, я просто хочу объединить все «data2», которые являются результатом итерации ввода $ results_rows_selected. Может ли кто-нибудь помочь мне? Спасибо !!

...