Нажмите и нарисуйте в ячейке сетки

Question

У меня 2 вопроса:

если у меня есть следующая сетка (с датой):

! [Image | 690x230] (загрузить: //WutHMARYjXdmbjANo40v9NCFJA.png)

Значения в сетке (строки, столбцы и числа внутри зеленых ячеек) рассчитываются с использованием нескольких шагов:

{ind_capaUTS<-pcr(x=df_filt$UTS,lsl = input$iLIMMIN, usl = input$iLIMMAX )

    resultadoUTS<-list(FaixaOD=fxod,   <-------- rows of the grid
                    FaixaWT=fxwt,      <-------- columns of the grid
                    LInf=LInf,
                    LSup=LSup,
                    ppk=ind_capaUTS$cpk)   <-------- values in green cells (comming from PCR)

tab_padraoUTS<-matrix(0,
                     nrow     = length(nom_gruposOD),
                     ncol     = length(nom_gruposWT),
                     dimnames = list(nom_gruposOD,nom_gruposWT)
  )


#----------------------------------------------------------------------------------------  
    ind_cel_corUTS <- apply(X = faixas_od_wt,MARGIN = 1,FUN = calc_ind_capab_UTS)




   mat_ppksUTS<-matrix(unlist(ind_cel_corUTS),
                   ncol=5,
                   byrow=TRUE)

#----------------------------------------------------------------------------------------       

tab_padraoUTS[cbind(as.character(mat_ppksUTS[,1]),
                   as.character(mat_ppksUTS[,2]))] <- round(as.numeric(mat_ppksUTS[,5]),2)         

В этом случае ... my "tab_padraoUTS" - это имя сетки / таблицы, созданной на экране.

1 - Мне нужно построить график после того, как пользователь щелкнет по какой-то выбранной ячейке. Как я могу сделать это, используя "_cell_clicked" или "_cell_selected"? Пример:

    observeEvent(input$df_cell_clicked, {

      info = input$df_cell_clicked
      if (is.null(info$value) || info$col != 0) {

      output$plot1 <- renderPlotly({

        p1<- ggplot(df2, aes(x = YS)) + ...

2- Как мне извлечь 5 значений из списка "resultadoUTS", когда пользователь щелкает ячейку?