COMMunication
RESearch.NET

User Tools

Site Tools

You are here: index » api_kof
Trace:
api_kof

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
api_kof [2026/06/01 03:32] – hkimscilapi_kof [2026/06/01 03:37] (current) – hkimscil
Line 567: Line 567:
 </tabbox> </tabbox>
  
 +====== searchMovieInfo.xml ======
  
 <tabbox search_movie_list.rs> <tabbox search_movie_list.rs>
 <code> <code>
 +###############
 +# searchMovieInfo.xml
 +
 +sFd <- "http://www.kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieInfo.xml"
 +KEY <- 'your_key_here'
 +filmId[7,]
 +fg$filmId[7]
 +fg$film[7]
 +id <- fg$filmId[7]
 +id
 +url <-URLencode(iconv(sFd, to="utf8"))
 +url
 +
 +sfdr <- GET(url, query= list("key" = KEY, "movieCd"= id))
 +sfdr
 +sfdrP <- xmlParse(sfdr)
 +sfdrP
 +xmlA <- getNodeSet(sfdrP, "//actors/actor/peopleNm")
 +xmlA
 +
 +actor <- xmlToDataFrame(xmlA, stringsAsFactors = F)
 +actor
 +colnames(actor) <- "actor"
 +actor
 +
 +dir
 +mv <- fg$film[1]
 +mv
 +dtoa <- data.frame(dir,actor, id, mv)
 +dtoa
 +
 +library(readr)
 +write_excel_csv(dtoa, "fstudy.csv")
 +
  
 </code> </code>
 <tabbox search_movie_list.ro> <tabbox search_movie_list.ro>
 <code> <code>
 +> ###############
 +> # searchMovieInfo.xml
 +> 
 +> sFd <- "http://www.kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieInfo.xml"
 +> KEY <- 'your_key_here'
 +> filmId[7,]
 +[1] "20010238"
 +> fg$filmId[7]
 +[1] "20010238"
 +> fg$film[7]
 +[1] "메멘토"
 +> id <- fg$filmId[7]
 +> id
 +[1] "20010238"
 +> url <-URLencode(iconv(sFd, to="utf8"))
 +> url
 +[1] "http://www.kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieInfo.xml"
 +> 
 +> sfdr <- GET(url, query= list("key" = KEY, "movieCd"= id))
 +> sfdr
 +Response [http://www.kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieInfo.xml?key=your_key_here&movieCd=20010238]
 +  Date: 2026-06-01 03:35
 +  Status: 200
 +  Content-Type: application/xml;charset=utf-8
 +  Size: 2.5 kB
 +<BINARY BODY>
 +> sfdrP <- xmlParse(sfdr)
 +> sfdrP
 +<?xml version="1.0" encoding="utf-8" standalone="yes"?>
 +<movieInfoResult>
 +  <movieInfo>
 +    <movieCd>20010238</movieCd>
 +    <movieNm>메멘토</movieNm>
 +    <movieNmEn>Memento</movieNmEn>
 +    <movieNmOg/>
 +    <showTm>113</showTm>
 +    <prdtYear>2000</prdtYear>
 +    <openDt>20010824</openDt>
 +    <prdtStatNm>개봉</prdtStatNm>
 +    <typeNm>장편</typeNm>
 +    <nations>
 +      <nation>
 +        <nationNm>미국</nationNm>
 +      </nation>
 +    </nations>
 +    <genres>
 +      <genre>
 +        <genreNm>미스터리</genreNm>
 +      </genre>
 +      <genre>
 +        <genreNm>범죄</genreNm>
 +      </genre>
 +      <genre>
 +        <genreNm>스릴러</genreNm>
 +      </genre>
 +    </genres>
 +    <directors>
 +      <director>
 +        <peopleNm>크리스토퍼 놀란</peopleNm>
 +        <peopleNmEn>Christopher Nolan</peopleNmEn>
 +      </director>
 +    </directors>
 +    <actors>
 +      <actor>
 +        <peopleNm>가이 피어스</peopleNm>
 +        <peopleNmEn>Guy Pearce</peopleNmEn>
 +        <cast/>
 +        <castEn/>
 +      </actor>
 +      <actor>
 +        <peopleNm>캐리 앤 모스</peopleNm>
 +        <peopleNmEn>Carrie-Anne Moss</peopleNmEn>
 +        <cast/>
 +        <castEn/>
 +      </actor>
 +      <actor>
 +        <peopleNm>조 판톨리아노</peopleNm>
 +        <peopleNmEn>Joe Pantoliano</peopleNmEn>
 +        <cast/>
 +        <castEn/>
 +      </actor>
 +    </actors>
 +    <showTypes>
 +      <showType>
 +        <showTypeGroupNm>필름</showTypeGroupNm>
 +        <showTypeNm>필름</showTypeNm>
 +      </showType>
 +      <showType>
 +        <showTypeGroupNm>2D</showTypeGroupNm>
 +        <showTypeNm>디지털</showTypeNm>
 +      </showType>
 +    </showTypes>
 +    <companys>
 +      <company>
 +        <companyCd>20158370</companyCd>
 +        <companyNm>(주)디스테이션</companyNm>
 +        <companyNmEn/>
 +        <companyPartNm>배급사</companyPartNm>
 +      </company>
 +      <company>
 +        <companyCd>20122837</companyCd>
 +        <companyNm>(주)팝엔터테인먼트</companyNm>
 +        <companyNmEn>Pop Entertainment</companyNmEn>
 +        <companyPartNm>배급사</companyPartNm>
 +      </company>
 +      <company>
 +        <companyCd>20139757</companyCd>
 +        <companyNm>(주)엔케이컨텐츠</companyNm>
 +        <companyNmEn/>
 +        <companyPartNm>수입사</companyPartNm>
 +      </company>
 +      <company>
 +        <companyCd>20100207</companyCd>
 +        <companyNm>(주)씨네월드</companyNm>
 +        <companyNmEn>Cineworld</companyNmEn>
 +        <companyPartNm>수입사</companyPartNm>
 +      </company>
 +    </companys>
 +    <audits>
 +      <audit>
 +        <auditNo>2001-F222</auditNo>
 +        <watchGradeNm>15세관람가</watchGradeNm>
 +      </audit>
 +      <audit>
 +        <auditNo>2014-MF01083 </auditNo>
 +        <watchGradeNm>15세이상관람가</watchGradeNm>
 +      </audit>
 +    </audits>
 +    <staffs>
 +      <staff>
 +        <peopleNm>조나단 놀란</peopleNm>
 +        <peopleNmEn>Jonathan Nolan</peopleNmEn>
 +        <staffRoleNm>시나리오(각본)</staffRoleNm>
 +      </staff>
 +      <staff>
 +        <peopleNm>크리스토퍼 놀란</peopleNm>
 +        <peopleNmEn>Christopher Nolan</peopleNmEn>
 +        <staffRoleNm>시나리오(각본)</staffRoleNm>
 +      </staff>
 +    </staffs>
 +  </movieInfo>
 +  <source>영화진흥위원회</source>
 +</movieInfoResult>
 + 
 +> xmlA <- getNodeSet(sfdrP, "//actors/actor/peopleNm")
 +> xmlA
 +[[1]]
 +<peopleNm>가이 피어스</peopleNm> 
  
 +[[2]]
 +<peopleNm>캐리 앤 모스</peopleNm> 
 +
 +[[3]]
 +<peopleNm>조 판톨리아노</peopleNm> 
 +
 +attr(,"class")
 +[1] "XMLNodeSet"
 +> 
 +> actor <- xmlToDataFrame(xmlA, stringsAsFactors = F)
 +> actor
 +           text
 +1   가이 피어스
 +2  캐리 앤 모스
 +3 조 판톨리아노
 +> colnames(actor) <- "actor"
 +> actor
 +          actor
 +1   가이 피어스
 +2  캐리 앤 모스
 +3 조 판톨리아노
 +> 
 +> dir
 +[1] "크리스토퍼 놀란"
 +> mv <- fg$film[1]
 +> mv
 +[1] "오디세이"
 +> dtoa <- data.frame(dir,actor, id, mv)
 +> dtoa
 +              dir         actor       id
 +1 크리스토퍼 놀란   가이 피어스 20010238
 +2 크리스토퍼 놀란  캐리 앤 모스 20010238
 +3 크리스토퍼 놀란 조 판톨리아노 20010238
 +        mv
 +1 오디세이
 +2 오디세이
 +3 오디세이
 +> 
 +> library(readr)
 +> write_excel_csv(dtoa, "fstudy.csv")
 +> 
 +> # write.csv(dtoa, file="fstdy.csv", fileEncoding = "utf-8")
 +> #
 +> 
 </code> </code>
 </tabbox> </tabbox>
 +
 +====== searchMovieInfo.xml 2 ======
 +
 +<tabbox search_movie_list.rs>
 +<code>
 +# searchMovieInfo.xml 2
 +
 +sFd <- "http://www.kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieInfo.xml"
 +KEY <- 'your_key_here'
 +n.film <- nrow(filmId)
 +n.film
 +
 +url <-URLencode(iconv(sFd, to="utf8"))
 +url
 +actors <- list()
 +mvs <- list()
 +dirs <- list()
 +fg$film[2]
 +for (i in 1:n.film) {
 +  # Code to execute
 +  # print(filmId[i,])
 +  id <- filmId[i, ]
 +  fname <- fg$film[i]
 +  sfdr <- GET(url, query= list("key" = KEY, "movieCd"= id))
 +  sfdrP <- xmlParse(sfdr)
 +  xmlA <- getNodeSet(sfdrP, "//actors/actor/peopleNm")
 +  actor <- xmlToDataFrame(xmlA, stringsAsFactors = F)
 +  actors[i] <- actor
 +  mvs[i] <- fname
 +  dirs[i] <- dir
 +}
 +actors
 +mvs
 +dirs
 +# Create the dataframe
 +movie_df <- tibble(
 +  Movie = mvs,
 +  Director = dirs,
 +  Actors = actors
 +)
 +View(movie_df)
 +# write_excel_csv(movie_df, "dirs.actors.csv")
 +# write.csv(movie_df, "da.csv", row.names = T, fileEncoding = "UTF-8")
 +
 +</code>
 +<tabbox search_movie_list.ro>
 +<code>
 +> # searchMovieInfo.xml 2
 +> 
 +> sFd <- "http://www.kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieInfo.xml"
 +> KEY <- 'your_key_here'
 +> n.film <- nrow(filmId)
 +> n.film
 +[1] 10
 +> 
 +> url <-URLencode(iconv(sFd, to="utf8"))
 +> url
 +[1] "http://www.kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieInfo.xml"
 +> actors <- list()
 +> mvs <- list()
 +> dirs <- list()
 +> fg$film[2]
 +[1] "다크 나이트"
 +> for (i in 1:n.film) {
 ++   # Code to execute
 ++   # print(filmId[i,])
 ++   id <- filmId[i, ]
 ++   fname <- fg$film[i]
 ++   sfdr <- GET(url, query= list("key" = KEY, "movieCd"= id))
 ++   sfdrP <- xmlParse(sfdr)
 ++   xmlA <- getNodeSet(sfdrP, "//actors/actor/peopleNm")
 ++   actor <- xmlToDataFrame(xmlA, stringsAsFactors = F)
 ++   actors[i] <- actor
 ++   mvs[i] <- fname
 ++   dirs[i] <- dir
 ++ }
 +> actors
 +[[1]]
 +[1] "맷 데이먼"     "톰 홀랜드"    
 +[3] "앤 해서웨이"   "로버트 패틴슨"
 +[5] "루피타 뇽오"   "젠데이아 콜먼"
 +[7] "샤를리즈 테론"
 +
 +[[2]]
 +[1] "크리스찬 베일" "마이클 케인"  
 +[3] "히스 레저"     "아론 에크하트"
 +[5] "매기 질렌할"   "게리 올드만"  
 +[7] "모건 프리먼"  
 +
 +[[3]]
 +[1] "킬리언 머피"          "에밀리 블런트"       
 +[3] "맷 데이먼"            "로버트 다우니 주니어"
 +[5] "플로렌스 퓨"          "조쉬 하트넷"         
 +[7] "케이시 애플렉"        "라미 말렉"           
 +[9] "케네스 브래너"       
 +
 +[[4]]
 +[1] "레오나르도 디카프리오"
 +[2] "엘렌 페이지"          
 +[3] "마리옹 꼬띠아르"      
 +
 +[[5]]
 +[1] "톰 하디"       "마크 라이런스"
 +[3] "케네스 브래너" "킬리언 머피"  
 +[5] "제임스 다시"   "케빈 구스리"  
 +
 +[[6]]
 + [1] "존 데이비드 워싱턴" "로버트 패틴슨"     
 + [3] "엘리자베스 데비키"  "애론 테일러 존슨"  
 + [5] "마이클 케인"        "케네스 브래너"     
 + [7] "히메쉬 파텔"        "클레멘스 포시"     
 + [9] "유리 코로콜니코브"  "앤드류 하워드"     
 +[11] "마틴 도노반"       
 +
 +[[7]]
 +[1] "가이 피어스"   "캐리 앤 모스" 
 +[3] "조 판톨리아노"
 +
 +[[8]]
 +[1] "크리스찬 베일"  "게리 올드만"   
 +[3] "앤 해서웨이"    "톰 하디"       
 +[5] "조셉 고든 레빗"
 +
 +[[9]]
 +[1] "리암 니슨"     "크리스찬 베일"
 +[3] "마이클 케인"  
 +
 +[[10]]
 +[1] "매튜 매커너히"   "앤 해서웨이"    
 +[3] "마이클 케인"     "제시카 차스테인"
 +[5] "케이시 애플렉"  
 +
 +> mvs
 +[[1]]
 +[1] "오디세이"
 +
 +[[2]]
 +[1] "다크 나이트"
 +
 +[[3]]
 +[1] "오펜하이머"
 +
 +[[4]]
 +[1] "인셉션"
 +
 +[[5]]
 +[1] "덩케르크"
 +
 +[[6]]
 +[1] "테넷"
 +
 +[[7]]
 +[1] "메멘토"
 +
 +[[8]]
 +[1] "다크 나이트 라이즈"
 +
 +[[9]]
 +[1] "배트맨 비긴즈"
 +
 +[[10]]
 +[1] "인터스텔라"
 +
 +> dirs
 +[[1]]
 +[1] "크리스토퍼 놀란"
 +
 +[[2]]
 +[1] "크리스토퍼 놀란"
 +
 +[[3]]
 +[1] "크리스토퍼 놀란"
 +
 +[[4]]
 +[1] "크리스토퍼 놀란"
 +
 +[[5]]
 +[1] "크리스토퍼 놀란"
 +
 +[[6]]
 +[1] "크리스토퍼 놀란"
 +
 +[[7]]
 +[1] "크리스토퍼 놀란"
 +
 +[[8]]
 +[1] "크리스토퍼 놀란"
 +
 +[[9]]
 +[1] "크리스토퍼 놀란"
 +
 +[[10]]
 +[1] "크리스토퍼 놀란"
 +
 +> # Create the dataframe
 +> movie_df <- tibble(
 ++   Movie = mvs,
 ++   Director = dirs,
 ++   Actors = actors
 ++ )
 +> View(movie_df)
 +> # write_excel_csv(movie_df, "dirs.actors.csv")
 +> # write.csv(movie_df, "da.csv", row.names = T, fileEncoding = "UTF-8")
 +</code>
 +</tabbox>
 +
  
api_kof.txt · Last modified: by hkimscil
Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki