input$outputID_select inside a Shiny Module about d3tablefilter HOT 1 OPEN

# d3tabModule.R

d3tabUI <- function(id) {
  ns <- NS(id)
  
  tagList(
    column(d3tfOutput(ns('mtcars')), width = 8),
    column(tableOutput(ns("mtcarsSelect")), width = 4)
  )
}

d3tab <- function(input, output, session, data) {
  
  ns <- session$ns

  output$mtcars <- renderD3tf({
    
    tableProps <- list(
      btn_reset = TRUE,
      rows_counter = TRUE,  
      rows_counter_text = "Rows: ",
      sort = TRUE,
      on_keyup = TRUE,  
      on_keyup_delay = 800,
      sort_config = list(
        sort_types = c("Number", "Number")
      ),
      filters_row_index = 1,
      rows_always_visible = list(nrow(mtcars) + 2),
      col_operation = list( 
        id = list("frow_0_fcol_1_tbl_mtcars","frow_0_fcol_2_tbl_mtcars"),    
        col = list(1,2),    
        operation = list("mean","mean"),
        write_method = list("innerhtml",'innerhtml'),  
        exclude_row = list(nrow(mtcars) + 2),  
        decimal_precision = list(1, 1)
      )
    );
    
    footData <- data.frame(Rownames = "Mean", mpg = 0, cyl = 0);
    
    d3tf(mtcars[ , 1:2],
         enableTf = TRUE,
         tableProps = tableProps,
         showRowNames = TRUE, 
         selectableRows = "multi",
         selectableRowsClass = "info",
         tableStyle = "table table-bordered table-condensed",
         rowStyles = c(rep("", 7), rep("info", 7)),
         filterInput = TRUE,
         footData = footData,
         height = 500);
  })
  
  mtcarsInput <- reactive({
     inputID <- ns("mtcars_select")
     print("inputID in mtcarsInput ")
     print(inputID)
     print(input[[inputID]])
     if(is.null(input[[inputID]])) return(NULL)
     return(input[[inputID]]) 
    })
  
  # for a output object "mtcars" tableFilter generates an input
  # "mtcars_edit". 
  output$mtcarsSelect <- renderTable({
     if (is.null(mtcarsInput())) return(invisible());
     mtcarsInput()[ , 1:2];
  })
}

# app.R

library(shiny)
library(htmlwidgets)
library(D3TableFilter)

source("d3tabModule.R")


ui <- fluidPage(
  d3tabUI("d3tab")
)


server <- function(input, output) {
  
  observe({
    print("d3tab-mtcars_select in server")
    print(input[['d3tab-mtcars_select']])
  })
  
  callModule(d3tab, "d3tab", data(mtcars))
}


shinyApp(ui = ui, server = server)