Guys... i have 2 doubts.
If i have the following grid (datatable):
The values in the grid (rows, collums and numbers inside green cells) are calculated using some steps:
{ind_capaUTS<-pcr(x=df_filt$UTS,lsl = input$iLIMMIN, usl = input$iLIMMAX )
resultadoUTS<-list(FaixaOD=fxod, <-------- rows of the grid
FaixaWT=fxwt, <-------- collums 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)
In this case... my "tab_padraoUTS" is the name of the grid/table created in the screen.
1- I need to plot a graph after the user click on some selected cell. How can I do this using "_cell_clicked" or "_cell_selected" ?
Ex:
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- How can I extract the 5 values inside the "resultadoUTS" list when the user click on the cell?