> install.packages("RMySQL")

also installing the dependency ‘DBI’

trying URL 'https://cran.rstudio.com/bin/windows/contrib/3.4/DBI_0.6-1.zip'

Content type 'application/zip' length  bytes ( KB)

downloaded  KB

trying URL 'https://cran.rstudio.com/bin/windows/contrib/3.4/RMySQL_0.10.11.zip'

Content type 'application/zip' length  bytes (2.2 MB)

downloaded 2.2 MB

package ‘DBI’ successfully unpacked and MD5 sums checked

package ‘RMySQL’ successfully unpacked and MD5 sums checked

The downloaded binary packages are in

    C:\Users\fangping\AppData\Local\Temp\Rtmp4OKUkD\downloaded_packages

> library(RMySQL)

载入需要的程辑包：DBI

> help(package=”RMySQL”) #查看RMySQL的说明文档，里面有RMySQL所有可用的方法

Error: unexpected input in "help(package=?

> #创建数据库连接

> con <- dbConnect(MySQL(),host="localhost",dbname="test2",user="root",password="xinwei")

> #获取连接信息，查看database下所有表，以及删除testname表

> summary(con)

<MySQLConnection:,>

  User:   root

  Host:   localhost

  Dbname: test2

  Connection type: localhost via TCP/IP 

Results:

> dbGetInfo(con)

$host

[] "localhost"

$user

[] "root"

$dbname

[] "test2"

$conType

[] "localhost via TCP/IP"

$serverVersion

[] "5.6.36"

$protocolVersion

[] 

$threadId

[] 

$rsId

list()

> dbListTables(con)

[] "data_category_url"  "demo"               "tb_common_biz"

[] "tb_data_createtime" "tb_data_privilege"  "test_event"

[] "xw_sequence"

> 

    #读数据库表(show tables);
       dbListTables(con) 
    #读数据库表
    > dbReadTable(con,"xixi")
    #写数据库表  
    fruits <-data.frame(id=1:3,create_time=c("2017-05-03 16:11:40","2017-05-03 16:11:41","2017-05-03 16:11:42"),privilege_person=c(0,1,2),person_or_role=c(1,2,3),is_creator=c(1,2,3),data_id=c(20170512001,20170512002,2017051200))  
    dbListTables(con)  
    dbWriteTable(con,"fruits",fruits)  
    dbListTables(con)

> dbReadTable(con,"xixi")

  id         create_time privilege_person person_or_role is_creator     data_id

1  1 2017-05-03 16:11:40                0              1          1 20170512001

2  2 2017-05-03 16:11:41                1              2          2 20170512002

3  3 2017-05-03 16:11:42                2              3          3  2017051200

> dbListTables(con)

[1] "data_category_url"  "demo"               "fruits"             "tb_common_biz"

[5] "tb_data_createtime" "tb_data_privilege"  "test_event"         "xixi"

[9] "xw_sequence"