&引用；“选择”；在R-shinn中，从放置在RMySQL中的表中提取列

我在MySQL中有一个表“table1”，其中有“name”和“address”列。现在我正在开发R-Shining模块，以显示一个下拉列表，其中列出了该表中存在的所有名称（唯一）。有人能帮我写代码吗

---

需要了解choices=table1$name是如何工作的，因为对我来说，它给出的错误是“object table1 not found”。请帮助..

首先，您需要在MySQL和R Studio之间建立连接

sqlQuery <- function (query) {

  # creating DB connection object with RMysql package
  DB <- dbConnect(MySQL(), user='username', password='pass', dbname='databasename', host='localhost')

  # send Query to obtain result set

    rs <- dbSendQuery(DB, query)

  # get elements from result sets and convert to data frame
  result <- fetch(rs, -1)

  # to close resultset in RMySQL
  dbClearResult(dbListResults(DB)[[1]])

  # close db connection after function call exits
  on.exit(dbDisconnect(DB), add = FALSE)

  # return the dataframe
  return(result)
}

sqlQuery
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody( 
   uiOutput("firstSelection")  
  )
)
mydata <- sqlQuery("select name, address from table1")
server <- function(input, output) { 

output$secondSelection <- renderUI({

selectInput("name", "Select Name", choices = mydata$name)

}) 
}

shinyApp(ui, server)