R : Facebook 데이터 가져오기

트위터에서 데이터를 가져오는 걸 찾아보다 Facebook도 가능하지 않을까 해서 찾아보다가 Facebook Graph API를 사용하는 것을 알게 되었다. 역시나 트위터 처럼 Access Token이 필요하다. 트위터보다는 발급이 아주 간단함

    https://developers.facebook.com/tools/explorer

위 주소로 가서 Access Token을 발급하여 사용하면 된다. 이때 권한을 체크 해줘야 하는데 News Feed 값을 모두 가져오려면 Read Stream 권한을 꼭 체크해줘야한다.

(이걸 몰라서 왜 글이 다 안나오는 지 심각하게 고민함 ㅠㅠ)

그럼 아래와 같은 간단한 Function을 통해서 Facebook 에서 데이터를 가져 올 수 있다.

(솔직히 함수 수준은 아니지만... 앞으로 추가해보면 되지 뭐.. )

   FQLQuery.facebook <- function(script="",access_token, id='me') {

      # Package rjson 이 필요하다.

      fromJSON(getURL(sprintf( "https://graph.facebook.com/%s/?%s&access_token=%s", id, script, access_token)))

   }

   

간단하게 New Feed에 있는 post를 가져오려면

    FQLQuery.facebook("fields=posts.fields(id, message, created_time)", access_token, "me")

이렇게 해주면 최근 게시물을 일부 가지고 온다. 물론 데이터 프레임 형태로 바꿔주려면 스크립팅이 필요하지만...