Rstudio 01 连接MySQL

> 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"