api_kof
Differences
This shows you the differences between two versions of the page.
| Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
| api_kof [2026/06/01 03:28] – hkimscil | api_kof [2026/06/01 03:37] (current) – hkimscil | ||
|---|---|---|---|
| Line 1: | Line 1: | ||
| - | ====== | + | ====== |
| <tabbox api_kof.rs> | <tabbox api_kof.rs> | ||
| Line 154: | Line 154: | ||
| </ | </ | ||
| </ | </ | ||
| + | ====== SearchMovieList.xml ====== | ||
| + | <tabbox search_movie_list.rs> | ||
| + | < | ||
| + | ################################## | ||
| + | # searchMovieList.xml | ||
| + | |||
| + | sFilms <- " | ||
| + | KEY <- ' | ||
| + | dir <- " | ||
| + | dir <- iconv(dir, to=" | ||
| + | url < | ||
| + | url | ||
| + | |||
| + | sfRes <- GET(url, query= list(" | ||
| + | sfRes | ||
| + | sfParsed <- xmlParse(sfRes) | ||
| + | sfParsed | ||
| + | xmlId <- getNodeSet(sfParsed, | ||
| + | xmlId | ||
| + | xmlF <- getNodeSet(sfParsed, | ||
| + | xmlF | ||
| + | filmId <- xmlToDataFrame(xmlId, | ||
| + | filmId | ||
| + | colnames(filmId) <- " | ||
| + | filmId | ||
| + | filmN <- xmlToDataFrame(xmlF, | ||
| + | colnames(filmN) <- " | ||
| + | filmN | ||
| + | str(filmN) | ||
| + | fg <- cbind(filmId, | ||
| + | fg | ||
| + | fg <- unnest(fg, film) | ||
| + | fg | ||
| + | |||
| + | </ | ||
| + | <tabbox search_movie_list.ro> | ||
| + | < | ||
| + | > ################################## | ||
| + | > # searchMovieList.xml | ||
| + | > | ||
| + | > sFilms <- " | ||
| + | > KEY <- ' | ||
| + | > dir <- " | ||
| + | > dir <- iconv(dir, to=" | ||
| + | > url < | ||
| + | > url | ||
| + | [1] " | ||
| + | > | ||
| + | > sfRes <- GET(url, query= list(" | ||
| + | > sfRes | ||
| + | Response [https:// | ||
| + | Date: 2026-06-01 03:30 | ||
| + | Status: 200 | ||
| + | Content-Type: | ||
| + | Size: 4.97 kB | ||
| + | <BINARY BODY> | ||
| + | > sfParsed <- xmlParse(sfRes) | ||
| + | > sfParsed | ||
| + | <?xml version=" | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | </ | ||
| + | |||
| + | > xmlId <- getNodeSet(sfParsed, | ||
| + | > xmlId | ||
| + | [[1]] | ||
| + | < | ||
| + | |||
| + | [[2]] | ||
| + | < | ||
| + | |||
| + | [[3]] | ||
| + | < | ||
| + | |||
| + | [[4]] | ||
| + | < | ||
| + | |||
| + | [[5]] | ||
| + | < | ||
| + | |||
| + | [[6]] | ||
| + | < | ||
| + | |||
| + | [[7]] | ||
| + | < | ||
| + | |||
| + | [[8]] | ||
| + | < | ||
| + | |||
| + | [[9]] | ||
| + | < | ||
| + | |||
| + | [[10]] | ||
| + | < | ||
| + | |||
| + | attr(," | ||
| + | [1] " | ||
| + | > xmlF <- getNodeSet(sfParsed, | ||
| + | > xmlF | ||
| + | [[1]] | ||
| + | < | ||
| + | |||
| + | [[2]] | ||
| + | < | ||
| + | |||
| + | [[3]] | ||
| + | < | ||
| + | |||
| + | [[4]] | ||
| + | < | ||
| + | |||
| + | [[5]] | ||
| + | < | ||
| + | |||
| + | [[6]] | ||
| + | < | ||
| + | |||
| + | [[7]] | ||
| + | < | ||
| + | |||
| + | [[8]] | ||
| + | < | ||
| + | |||
| + | [[9]] | ||
| + | < | ||
| + | |||
| + | [[10]] | ||
| + | < | ||
| + | |||
| + | attr(," | ||
| + | [1] " | ||
| + | > filmId <- xmlToDataFrame(xmlId, | ||
| + | > filmId | ||
| + | text | ||
| + | 1 20250654 | ||
| + | 2 20081056 | ||
| + | 3 20226431 | ||
| + | 4 20100312 | ||
| + | 5 20164621 | ||
| + | 6 20201122 | ||
| + | 7 20010238 | ||
| + | 8 20112703 | ||
| + | 9 20050112 | ||
| + | 10 20149120 | ||
| + | > colnames(filmId) <- " | ||
| + | > filmId | ||
| + | | ||
| + | 1 20250654 | ||
| + | 2 20081056 | ||
| + | 3 20226431 | ||
| + | 4 20100312 | ||
| + | 5 20164621 | ||
| + | 6 20201122 | ||
| + | 7 20010238 | ||
| + | 8 20112703 | ||
| + | 9 20050112 | ||
| + | 10 20149120 | ||
| + | > filmN <- xmlToDataFrame(xmlF, | ||
| + | > colnames(filmN) <- " | ||
| + | > filmN | ||
| + | film | ||
| + | 1 오디세이 | ||
| + | 2 | ||
| + | 3 오펜하이머 | ||
| + | 4 인셉션 | ||
| + | 5 덩케르크 | ||
| + | 6 테넷 | ||
| + | 7 메멘토 | ||
| + | 8 다크 나이트 라이즈 | ||
| + | 9 | ||
| + | 10 | ||
| + | > str(filmN) | ||
| + | ' | ||
| + | $ film: chr " | ||
| + | > fg <- cbind(filmId, | ||
| + | > fg | ||
| + | | ||
| + | 1 20250654 | ||
| + | 2 20081056 | ||
| + | 3 20226431 | ||
| + | 4 20100312 | ||
| + | 5 20164621 | ||
| + | 6 20201122 | ||
| + | 7 20010238 | ||
| + | 8 20112703 다크 나이트 라이즈 | ||
| + | 9 20050112 | ||
| + | 10 20149120 | ||
| + | > fg <- unnest(fg, film) | ||
| + | > fg | ||
| + | # A tibble: 10 × 2 | ||
| + | | ||
| + | < | ||
| + | 1 20250654 오디세이 | ||
| + | 2 20081056 다크 나이트 | ||
| + | 3 20226431 오펜하이머 | ||
| + | 4 20100312 인셉션 | ||
| + | 5 20164621 덩케르크 | ||
| + | 6 20201122 테넷 | ||
| + | 7 20010238 메멘토 | ||
| + | 8 20112703 다크 나이트 라이즈 | ||
| + | 9 20050112 배트맨 비긴즈 | ||
| + | 10 20149120 인터스텔라 | ||
| + | > | ||
| + | </ | ||
| + | </ | ||
| + | |||
| + | ====== searchMovieInfo.xml ====== | ||
| + | |||
| + | <tabbox search_movie_list.rs> | ||
| + | < | ||
| + | ############### | ||
| + | # searchMovieInfo.xml | ||
| + | |||
| + | sFd <- " | ||
| + | KEY <- ' | ||
| + | filmId[7,] | ||
| + | fg$filmId[7] | ||
| + | fg$film[7] | ||
| + | id <- fg$filmId[7] | ||
| + | id | ||
| + | url < | ||
| + | url | ||
| + | |||
| + | sfdr <- GET(url, query= list(" | ||
| + | sfdr | ||
| + | sfdrP <- xmlParse(sfdr) | ||
| + | sfdrP | ||
| + | xmlA <- getNodeSet(sfdrP, | ||
| + | xmlA | ||
| + | |||
| + | actor <- xmlToDataFrame(xmlA, | ||
| + | actor | ||
| + | colnames(actor) <- " | ||
| + | actor | ||
| + | |||
| + | dir | ||
| + | mv <- fg$film[1] | ||
| + | mv | ||
| + | dtoa <- data.frame(dir, | ||
| + | dtoa | ||
| + | |||
| + | library(readr) | ||
| + | write_excel_csv(dtoa, | ||
| + | |||
| + | |||
| + | </ | ||
| + | <tabbox search_movie_list.ro> | ||
| + | < | ||
| + | > ############### | ||
| + | > # searchMovieInfo.xml | ||
| + | > | ||
| + | > sFd <- " | ||
| + | > KEY <- ' | ||
| + | > filmId[7,] | ||
| + | [1] " | ||
| + | > fg$filmId[7] | ||
| + | [1] " | ||
| + | > fg$film[7] | ||
| + | [1] " | ||
| + | > id <- fg$filmId[7] | ||
| + | > id | ||
| + | [1] " | ||
| + | > url < | ||
| + | > url | ||
| + | [1] " | ||
| + | > | ||
| + | > sfdr <- GET(url, query= list(" | ||
| + | > sfdr | ||
| + | Response [http:// | ||
| + | Date: 2026-06-01 03:35 | ||
| + | Status: 200 | ||
| + | Content-Type: | ||
| + | Size: 2.5 kB | ||
| + | <BINARY BODY> | ||
| + | > sfdrP <- xmlParse(sfdr) | ||
| + | > sfdrP | ||
| + | <?xml version=" | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | < | ||
| + | </ | ||
| + | </ | ||
| + | </ | ||
| + | < | ||
| + | </ | ||
| + | |||
| + | > xmlA <- getNodeSet(sfdrP, | ||
| + | > xmlA | ||
| + | [[1]] | ||
| + | < | ||
| + | |||
| + | [[2]] | ||
| + | < | ||
| + | |||
| + | [[3]] | ||
| + | < | ||
| + | |||
| + | attr(," | ||
| + | [1] " | ||
| + | > | ||
| + | > actor <- xmlToDataFrame(xmlA, | ||
| + | > actor | ||
| + | text | ||
| + | 1 | ||
| + | 2 캐리 앤 모스 | ||
| + | 3 조 판톨리아노 | ||
| + | > colnames(actor) <- " | ||
| + | > actor | ||
| + | actor | ||
| + | 1 | ||
| + | 2 캐리 앤 모스 | ||
| + | 3 조 판톨리아노 | ||
| + | > | ||
| + | > dir | ||
| + | [1] " | ||
| + | > mv <- fg$film[1] | ||
| + | > mv | ||
| + | [1] " | ||
| + | > dtoa <- data.frame(dir, | ||
| + | > dtoa | ||
| + | dir | ||
| + | 1 크리스토퍼 놀란 | ||
| + | 2 크리스토퍼 놀란 | ||
| + | 3 크리스토퍼 놀란 조 판톨리아노 20010238 | ||
| + | mv | ||
| + | 1 오디세이 | ||
| + | 2 오디세이 | ||
| + | 3 오디세이 | ||
| + | > | ||
| + | > library(readr) | ||
| + | > write_excel_csv(dtoa, | ||
| + | > | ||
| + | > # write.csv(dtoa, | ||
| + | > # | ||
| + | > | ||
| + | </ | ||
| + | </ | ||
| + | |||
| + | ====== searchMovieInfo.xml 2 ====== | ||
| + | |||
| + | <tabbox search_movie_list.rs> | ||
| + | < | ||
| + | # searchMovieInfo.xml 2 | ||
| + | |||
| + | sFd <- " | ||
| + | KEY <- ' | ||
| + | n.film <- nrow(filmId) | ||
| + | n.film | ||
| + | |||
| + | url < | ||
| + | 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(" | ||
| + | sfdrP <- xmlParse(sfdr) | ||
| + | xmlA <- getNodeSet(sfdrP, | ||
| + | actor <- xmlToDataFrame(xmlA, | ||
| + | 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, | ||
| + | # write.csv(movie_df, | ||
| + | |||
| + | </ | ||
| + | <tabbox search_movie_list.ro> | ||
| + | < | ||
| + | > # searchMovieInfo.xml 2 | ||
| + | > | ||
| + | > sFd <- " | ||
| + | > KEY <- ' | ||
| + | > n.film <- nrow(filmId) | ||
| + | > n.film | ||
| + | [1] 10 | ||
| + | > | ||
| + | > url < | ||
| + | > url | ||
| + | [1] " | ||
| + | > 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(" | ||
| + | + sfdrP <- xmlParse(sfdr) | ||
| + | + xmlA <- getNodeSet(sfdrP, | ||
| + | + actor <- xmlToDataFrame(xmlA, | ||
| + | + | ||
| + | + | ||
| + | + | ||
| + | + } | ||
| + | > 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, | ||
| + | + | ||
| + | + | ||
| + | + ) | ||
| + | > View(movie_df) | ||
| + | > # write_excel_csv(movie_df, | ||
| + | > # write.csv(movie_df, | ||
| + | </ | ||
| + | </ | ||
| + | |||
| + | |||
api_kof.1780284486.txt.gz · Last modified: by hkimscil