Row_names во фрейме данных - PullRequest
1 голос
/ 10 апреля 2019

Я хочу изменить атрибут 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)
...