komment
설치
# CRAN 버전 (아직 안됩니다)
install.packages('komment')
# 개발 버전
install.packages('komment', repos = 'https://forkonlp.r-universe.dev')예제
2개의 speech에 대한 함수와 3개의 검색 조건에 대한 함수로 이루어져 있습니다.
speech 에 대한 함수
처음 함수는 speech를 검색하는 함수입니다. library(komment)를 이용해 패키지를 로드해야 사용할 수 있습니다.
search_speech(count = 10)
#> # A tibble: 10 × 6
#> president field event title date link
#> <chr> <chr> <chr> <chr> <chr> <chr>
#> 1 이승만 연설문 취임사 "대통령 취임사(大統領就任辭) " 1948… http…
#> 2 이승만 연설문 성명/담화문 "민족이 원하는 길을 따를 결심, 국무… 1948… http…
#> 3 이승만 연설문 기타 "미급점(未及點) 육성하라 " 1948… http…
#> 4 이승만 연설문 성명/담화문 "전민족에게 충고함 " 1948… http…
#> 5 이승만 연설문 성명/담화문 "대한민국 정부수립과 우리의 각오 " 1948… http…
#> 6 이승만 연설문 기념사 "함께 뭉쳐서 자강전진(自疆前進) 외… 1948… http…
#> 7 이승만 연설문 성명/담화문 "정권 이양문제에 대하여 " 1948… http…
#> 8 이승만 연설문 성명/담화문 "북한정권(北韓政權)에 대하여 " 1948… http…
#> 9 이승만 연설문 성명/담화문 "미소(美蘇) 양군 철퇴문제에 대하여 " 1948… http…
#> 10 이승만 연설문 성명/담화문 "반민자(反民者) 처단(處斷)은 민의(… 1948… http…두 번째는 speech text를 가져오는 함수입니다.
get_speech("https://www.pa.go.kr/research/contents/speech/index.jsp?spMode=view&catid=c_pa02062&artid=1308580")
#> # A tibble: 1 × 8
#> title date presi…¹ place event source parag…² content
#> <chr> <chr> <chr> <chr> <chr> <chr> <int> <chr>
#> 1 국제인권연맹 인권상 수상 연… 1998.… 김대중 국제 기타 김대… 1 존경하…
#> # … with abbreviated variable names ¹president, ²paragraph검색 조건에 대한 함수
search_speech() 함수의 인자 중에 president, field, event에서 사용할 조건을 출력해줍니다.
# 대통령 리스트 출력
get_president()
#> [1] "이승만" "윤보선" "박정희" "최규하" "전두환" "노태우" "김영삼" "김대중"
#> [9] "노무현" "이명박" "박근혜"
# 유형 리스트 출력
get_event()
#> [1] "환영사" "국회연설" "성명/담화문" "기타" "신년사"
#> [6] "기념사" "취임사"