api_kof
This is an old revision of the document!
SearchPeople
api_kof.rs
library(XML)
library(httr)
library(tidyr)
# https://kobis.or.kr/kobisopenapi/homepg/main/main.do
searchPeople <- "https://kobis.or.kr/kobisopenapi/webservice/rest/people/searchPeopleList.xml"
KEY <- 'your_keys_here'
name <- "Christian Bale"
name <- iconv(name, to="utf8")
url <-URLencode(iconv(searchPeople, to="utf8"))
url
spRes <- GET(url, query= list("key" = KEY, "peopleNm"= name))
spRes
spParsed <- xmlParse(spRes)
spParsed
xmlPeople <- getNodeSet(spParsed, "//people")
xmlPeople
xmlFilm <- getNodeSet(spParsed, "//people/filmoNames")
xmlFilm
filmCh <- xmlToDataFrame(xmlFilm, stringsAsFactors = F)
filmCh
View(filmCh)
library(tidyr)
library(tidyverse)
fs <- mutate(filmCh, text = strsplit(as.character(text), "\\|"))
fs <- unnest(fs, text)
str(fs)
data.frame(fs)
fs[1,]
api_kof.ro
> library(XML)
> library(httr)
> library(tidyr)
>
> # https://kobis.or.kr/kobisopenapi/homepg/main/main.do
>
> searchPeople <- "https://kobis.or.kr/kobisopenapi/webservice/rest/people/searchPeopleList.xml"
> KEY <- 'your_key_here'
> name <- "Christian Bale"
> name <- iconv(name, to="utf8")
> url <-URLencode(iconv(searchPeople, to="utf8"))
> url
[1] "https://kobis.or.kr/kobisopenapi/webservice/rest/people/searchPeopleList.xml"
>
> spRes <- GET(url, query= list("key" = KEY, "peopleNm"= name))
> spRes
Response [https://kobis.or.kr/kobisopenapi/webservice/rest/people/searchPeopleList.xml?key=your_key_here&peopleNm=Christian%20Bale]
Date: 2026-06-01 03:26
Status: 200
Content-Type: application/xml;charset=utf-8
Size: 935 B
<BINARY BODY>
> spParsed <- xmlParse(spRes)
> spParsed
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<peopleListResult>
<totCnt>1</totCnt>
<peopleList>
<people>
<peopleCd>10077325</peopleCd>
<peopleNm>크리스찬 베일</peopleNm>
<peopleNmEn>Christian Bale </peopleNmEn>
<repRoleNm>배우</repRoleNm>
<filmoNames>브라이드!|토르: 러브 앤 썬더|암스테르담|포드 V 페라리|바이스|몬태나|더 프로미스|빅쇼트|나이트 오브 컵스|엑소더스: 신들과 왕들|아웃 오브 더 퍼니스|아메리칸 허슬|다크 나이트 라이즈|진링의 13소녀|파이터|퍼블릭 에너미|터미네이터 : 미래전쟁의 시작|다크 나이트|아임 낫 데어|3:10 투 유마|프레스티지|레스큐 던|하쉬 타임|뉴월드|배트맨 비긴즈|머시니스트|이퀼리브리엄|레인 오브 파이어|로렐 캐년|아메리칸 싸이코|벨벳 골드마인</filmoNames>
</people>
</peopleList>
<source>영화진흥위원회</source>
</peopleListResult>
> xmlPeople <- getNodeSet(spParsed, "//people")
> xmlPeople
[[1]]
<people>
<peopleCd>10077325</peopleCd>
<peopleNm>크리스찬 베일</peopleNm>
<peopleNmEn>Christian Bale </peopleNmEn>
<repRoleNm>배우</repRoleNm>
<filmoNames>브라이드!|토르: 러브 앤 썬더|암스테르담|포드 V 페라리|바이스|몬태나|더 프로미스|빅쇼트|나이트 오브 컵스|엑소더스: 신들과 왕들|아웃 오브 더 퍼니스|아메리칸 허슬|다크 나이트 라이즈|진링의 13소녀|파이터|퍼블릭 에너미|터미네이터 : 미래전쟁의 시작|다크 나이트|아임 낫 데어|3:10 투 유마|프레스티지|레스큐 던|하쉬 타임|뉴월드|배트맨 비긴즈|머시니스트|이퀼리브리엄|레인 오브 파이어|로렐 캐년|아메리칸 싸이코|벨벳 골드마인</filmoNames>
</people>
attr(,"class")
[1] "XMLNodeSet"
> xmlFilm <- getNodeSet(spParsed, "//people/filmoNames")
> xmlFilm
[[1]]
<filmoNames>브라이드!|토르: 러브 앤 썬더|암스테르담|포드 V 페라리|바이스|몬태나|더 프로미스|빅쇼트|나이트 오브 컵스|엑소더스: 신들과 왕들|아웃 오브 더 퍼니스|아메리칸 허슬|다크 나이트 라이즈|진링의 13소녀|파이터|퍼블릭 에너미|터미네이터 : 미래전쟁의 시작|다크 나이트|아임 낫 데어|3:10 투 유마|프레스티지|레스큐 던|하쉬 타임|뉴월드|배트맨 비긴즈|머시니스트|이퀼리브리엄|레인 오브 파이어|로렐 캐년|아메리칸 싸이코|벨벳 골드마인</filmoNames>
attr(,"class")
[1] "XMLNodeSet"
> filmCh <- xmlToDataFrame(xmlFilm, stringsAsFactors = F)
> filmCh
text
1 브라이드!|토르: 러브 앤 썬더|암스테르담|포드 V 페라리|바이스|몬태나|더 프로미스|빅쇼트|나이트 오브 컵스|엑소더스: 신들과 왕들|아웃 오브 더 퍼니스|아메리칸 허슬|다크 나이트 라이즈|진링의 13소녀|파이터|퍼블릭 에너미|터미네이터 : 미래전쟁의 시작|다크 나이트|아임 낫 데어|3:10 투 유마|프레스티지|레스큐 던|하쉬 타임|뉴월드|배트맨 비긴즈|머시니스트|이퀼리브리엄|레인 오브 파이어|로렐 캐년|아메리칸 싸이코|벨벳 골드마인
> View(filmCh)
>
> library(tidyr)
> library(tidyverse)
>
> fs <- mutate(filmCh, text = strsplit(as.character(text), "\\|"))
> fs <- unnest(fs, text)
> str(fs)
tibble [31 × 1] (S3: tbl_df/tbl/data.frame)
$ text: chr [1:31] "브라이드!" "토르: 러브 앤 썬더" "암스테르담" "포드 V 페라리" ...
> data.frame(fs)
text
1 브라이드!
2 토르: 러브 앤 썬더
3 암스테르담
4 포드 V 페라리
5 바이스
6 몬태나
7 더 프로미스
8 빅쇼트
9 나이트 오브 컵스
10 엑소더스: 신들과 왕들
11 아웃 오브 더 퍼니스
12 아메리칸 허슬
13 다크 나이트 라이즈
14 진링의 13소녀
15 파이터
16 퍼블릭 에너미
17 터미네이터 : 미래전쟁의 시작
18 다크 나이트
19 아임 낫 데어
20 3:10 투 유마
21 프레스티지
22 레스큐 던
23 하쉬 타임
24 뉴월드
25 배트맨 비긴즈
26 머시니스트
27 이퀼리브리엄
28 레인 오브 파이어
29 로렐 캐년
30 아메리칸 싸이코
31 벨벳 골드마인
> fs[1,]
# A tibble: 1 × 1
text
<chr>
1 브라이드!
>
api_kof.1780284486.txt.gz · Last modified: by hkimscil