토큰을 제출해야 하는 사이트 크롤링

안녕하세요,

영화관 통계 사이트 데이터를 rvest로 받아오고자 하는데 사이트를 분해해보니 'CSRFToken'이란 난수를 요청하는 것 같은데요, 아래와 같이 먼저 받아오고 POST를 사용하면 420 에러가 뜹니다.

혹시 POST를 날릴때 토큰도 같이 받아서 날릴 수 있는 방법이 있나요?

아래는 제가 작성해서 테스트해봤으나 동작하지 않는 코드입니다.

#토큰 가져오기

target_url<-"https://www.kobis.or.kr/kobis/business/main/main.do"

Token<-target_url %>% read_html() %>% html_nodes(xpath = '//*[@id="wrap"]/input') %>% html_attr('value')

#월별 관객 추이

target_url<-"https://www.kobis.or.kr/kobis/business/stat/them/findMonthlyTotalList.do"

ref<-"https://www.kobis.or.kr/kobis/business/stat/them/findMonthlyTotalList.do"

tmp<-POST(url = target_url,httr::add_headers(Referer = ref), query=list(

  CSRFToken = Token,

  loadVal = 0,

  searchType = "search",

  selectYear = 2021

)

)