Differences

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

--- xml_parsing_via_api [2024/11/28 10:30] – created hkimscil
+++ xml_parsing_via_api [2024/12/04 07:20] (current) – hkimscil
@@ Line 1: / Line 1: @@
 <code>
+library(XML)
+library(httr)
+library(tidyr)
+library(tidyverse)
 searchPeople <- "https://kobis.or.kr/kobisopenapi/webservice/rest/people/searchPeopleList.xml"
 KEY <- 'e95ca8d1202a4ffe248c09f1e1268cae'
@@ Line 9: / Line 14: @@
 spRes <- GET(url, query= list("key" = KEY, "peopleNm"= name))
 spRes
-spParsed <- xmlParse(sres)
+spParsed <- xmlParse(spRes)
 spParsed
 xmlPeople <- getNodeSet(spParsed, "//people")
@@ Line 17: / Line 22: @@
 filmCh <- xmlToDataFrame(xmlFilm, stringsAsFactors = F)
 filmCh
+View(filmCh)
-library(tidyr)
 films <- filmCh
 films  %>%
   mutate(text = strsplit(as.character(text), "\\|")) %>%
   unnest(text)
 fs <- mutate(films, text = strsplit(as.character(text), "\\|"))
 fs <- unnest(fs, text)
@@ Line 30: / Line 37: @@
 fs[1,]
+##################################
 sFilms <- "https://kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieList.xml"
@@ Line 47: / Line 55: @@
 xmlF
 filmId <- xmlToDataFrame(xmlId, stringsAsFactors = F)
+filmId
+colnames(filmId) <- "filmId"
 filmId
 filmN <- xmlToDataFrame(xmlF, stringsAsFactors = F)
+colnames(filmN) <- "film"
 filmN
 str(filmN)
-fg <- data.frame(filmId, filmN)
+fg <- cbind(filmId, filmN)
 fg
-fg <- unnest(fg, text.1)
+fg <- unnest(fg, film)
 fg
+###############
 sFd <- "http://www.kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieInfo.xml"
 KEY <- 'e95ca8d1202a4ffe248c09f1e1268cae'
 filmId[1,]
-name <- fg$text[1]
+fg$filmId[1]
-name
+fg$film[1]
-# name <- iconv(name, to="utf8")
+id <- fg$filmId[1]
+id
 url <-URLencode(iconv(sFd, to="utf8"))
 url
-sfdr <- GET(url, query= list("key" = KEY, "movieCd"= name))
+sfdr <- GET(url, query= list("key" = KEY, "movieCd"= id))
 sfdr
 sfdrP <- xmlParse(sfdr)
@@ Line 71: / Line 85: @@
 xmlA <- getNodeSet(sfdrP, "//actors/actor/peopleNm")
 xmlA
 actor <- xmlToDataFrame(xmlA, stringsAsFactors = F)
 actor
+colnames(actor) <- "actor"
+actor
 dir
-mv <- fg$text.1[1]
+mv <- fg$film[1]
-dtoa <- data.frame(dir,actor, name, mv)
+mv
+dtoa <- data.frame(dir,actor, id, mv)
 dtoa
 write.csv(dtoa, file="fstdy.csv", fileEncoding = "euc-kr")
 </code>