module NS

app.R

library(shiny)

 
# function to make inputs
shinyInput <- function(FUN, len, id, ...) {
    inputs <- character(len)
    for (i in seq_len(len)) {
        inputs[i] <- as.character(FUN(paste0(id, i), ...))
    }
    inputs
}

 
mod_data_ui <- function(id) {
    fluidPage(
     DT::dataTableOutput(NS(id, "data")),
     textOutput(NS(id, 'myText'))
    )
}

 

mod_data_server <- function(id, trainingname) {
    moduleServer(id, function(input, output, session) {

        datafiles <- reactiveValues(
            names = c("A", "B", "C"),
            number = length(c("A", "B", "C")),
            file = NULL
        )


        df <- reactive({
            data.frame(
             Files = datafiles$names,
             Delete = shinyInput(actionButton, datafiles$number, 'delete_btn_', label = "DELETE", class="delete_btn", onclick = paste0('Shiny.setInputValue(\"', NS(id, "select_button"), '\", this.id)'))
            )
        })

       

        

        output$data <- DT::renderDT({
            DT::datatable(
                df(),
                escape = FALSE,
                selection = 'none',
                rownames = FALSE,
                options(
                    dom = 'lrt',
                    bFilter = FALSE,
                    bInfo = FALSE,
                    paging = FALSE,
                    lengthChange = FALSE
                )
            )
        }, server = FALSE)

       

        observeEvent(input$select_button, {
            selectedRow <- as.numeric(strsplit(input$select_button, "_")[[1]][2])
            datafiles$file <<- paste('click on ',df$data[selectedRow,1])
        })

     
        output$myText <- renderText({ datafiles$file })
    })

}



# the app
ui <- fluidPage(mod_data_ui("data"))

 
server <- function(input, output) {
   mod_data_server("data")
}

shinyApp(ui = ui, server = server)