inst/multipleData/app.R

In editData: 'RStudio' Addin for Editing a 'data.frame'

library(editData)
library(tidyverse)
library(shiny)


ui <- fluidPage(
    selectInput("data","Select data to edit",choices=c("mtcars","mpg","faithful","faithfuld","iris"),multiple=TRUE),
    uiOutput("editUI")

)
server <- function(input, output) {


    output$editUI=renderUI({
        data<-uiname<-result<-mylist<-textname<-list()

        count=length(input$data)

        if(count>0) {
            for(i in  1:count){

       data[[i]]<-get(input$data[i])
                uiname[[i]]<-paste0("table",i)
                title=paste0("File No:",i)
                mylist[[3*i-2]]<-h2(title)
                mylist[[3*i-1]]<-editableDTUI(uiname[[i]])
                textname[[i]]=paste0("text",i)
                mylist[[3*i]]<-verbatimTextOutput(textname[[i]])

                local({
                    j<-i
                    result[[j]]=callModule(editableDT,uiname[[j]],data=reactive(data[[j]]))

                    output[[textname[[j]]]]=renderPrint({
                        head(as.data.frame(result[[j]]()))
                    })
                })
             }
            do.call(tagList,mylist)
        }

    })

}
shinyApp(ui, server)