R跟SQL连接

以下是将R跟SQL连接之后取数据的代码，调用函数时直接调用函数，将SQL语句输入其中并用双引号引起来。

sql_fetch <- function(statement){
  
  library(tidyverse)
  library(RMySQL)
  
  connect_data <- dbConnect(MySQL(),
            port = 3306,
            host = "---",
            dbname = "---",
            username = "---",
            password = "---") %>%
    dbSendQuery(statement) %>% dbFetch(n = -1)   #-1表示取出符合条件的所有数据
  
  return(connect_data)}

sql_fetch("select * from database")