MySQL 연동하기

2015년 1월 9일, 드디어 {DBI} 기반의 MySQL connector 신판이 CRAN에 공개되었습니다. 그전에 문제가 좀 있어서 ODBC를 이용할 수밖에 없었는데 정말 잘 되었지요?

> install.packages("RMySQL")
> library(RMySQL)
> library(rvest)
> con <- dbConnect(MySQL(),username="root",password="*****",host="127.0.0.1",port=3306,dbname="venture_capital")

> con %>% dbGetQuery("SELECT COUNT(*) FROM venture_investment")


  COUNT(*)
1     8383

> a<-con %>% dbGetQuery("SELECT * FROM venture_investment LIMIT 10")

결과를 보면 간혹 한글이 깨져보일 수 있습니다. DB가 UTF-8이지만, Locale 설정이 CP949로 되어 있다면 당연히 문제가 됩니다. 이럴땐 iconv()

> a[[1]] <- iconv(as.character(a[[1]]),from='UTF-8')

> a
       name_company supported_comp amount_money year_stamp month_stamp
1  교원나라벤처투자              1   6000000000       2008           5
2      그린기술투자              0            0       2008           5
3        네오플럭스              1   2002000000       2008           5
4    넥스트벤처투자              1    500080000       2008           5
5      다윈기술금융              0            0       2008           5
6      대경창업투자              2   1000000000       2008           5
7      대성창업투자              3   2214000000       2008           5
8  동양인베스트먼트              1    500000000       2008           5
9      동훈창업투자              0            0       2008           5
10     드림창업투자              0            0       2008           5

한글이 잘 출력 됩니다.

> dbDisconnect(con)
[1] TRUE

마지막에는 데이터베이스를 끊어요.