Блог

Я хочу показать таблицу данных, которая находится в базе данных sql после нажатия кнопки, точно такой, какой она есть по этой ссылке, Как использовать observeEvent в сочетании с renderDT?

 #ATTEMPT 1

library(RMariaDB)
library(DT)
library(shiny)

ui <- fluidPage(
actionButton("datatable1", "Button"),
DTOutput("datatable2"))

#server
server <- function(input, output, session){

plotsettings<-reactiveValues()
     observeEvent(input$datatable1, {
      localuserpassword="MYPASSWORD"
      storiesDb <- dbConnect(RMariaDB::MariaDB(), user='user', password=localuserpassword, dbname='DBNAME', host='localhost') #connect to the database
      query= "SELECT *  FROM TABLENAME" #select everything from the table
      rs = dbSendQuery(storiesDb,query)#send the command
      plotSettings<-dbFetch(rs) #transform to data.frame and store in plotSettings
            })
output$datatable2<-renderDT(plotSettings) 
})

  

Я должен использовать пакет DT, чтобы иметь возможность выбрать конкретную строку данных и отредактировать ее.