R에서 user-agent 정보 바꾸기

아래와 같이 CGV 홈페이지에 접속을 시도하면 400 BAD REQUEST 에러가 발생한다.

GET('www.cgv.co.kr')

파이어폭스의 user-agent 정보를 ua 변수에 저장한다.

ua = user_agent('Mozilla/5.0 (Windows NT 6.3; rv:36.0) Gecko/20100101 Firefox/36.0')

httr 라이브러리의 GET 함수로 CGV 홈페이지를 가져올 때 ua 변수에 저장된 user-agnet 정보를 보내서 파이어폭스로 접속한 것처럼 한다.

GET('www.cgv.co.kr', ua)