Я хочу изменить атрибут name row_names, который по умолчанию имеет значение dataframe в глянцевом, на какое-то другое имя, например, «id», а также хотел сделать «id» в качестве первичного ключа. Это возможно?Вот пример кода
library(shiny)
library(DBI)
library(pool)
pool <- dbPool(drv = RMySQL::MySQL(),dbname = "demo",host =
"db.cr7lk1dht.us-east-2.rds.amazonaws.com",username = "ktik",password
= "12378", port = 3306)
df <- data.frame(0)
ui <- fluidPage(
submitButton("submit")
)
server <- shinyServer(function(input, output,session){
df <- data.frame(
emp_id = c (1,2,3,4,5),
emp_name = c("Rick","Dan","Michelle","Ryan","Gary"),
salary = c(623,515,611,729,843))
dbWriteTable(pool, "ro1", df, overwrite = TRUE) #this will insert the
entire dataframe at once into dummyTable
})
shinyApp(ui, server)