Differences

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

--- api_kof [2026/06/01 03:37] – hkimscil
+++ api_kof [2026/09/02 23:16] (current) – hkimscil
@@ Line 1: / Line 1: @@
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
+.
 ====== searchPeopleList.xml ======
 <tabbox api_kof.rs>
 <code>
@@ Line 1010: / Line 1020: @@
 </tabbox>
+====== json ======
+<code>
+install.packages(c("httr2", "jsonlite", "tidyverse"))
+install.packages(c("curl", "httr2"))
+library(httr2)
+library(httr)
+library(jsonlite)
+library(tidyverse)
+library(tidyr)
+library(XML)
+api_key <- 'd0d75b0657738e83c0cb9b208432642e'
+# service type
+box_office_weekly <- 'boxoffice/searchWeeklyBoxOfficeList.'
+p1 <-"&targetDt="
+para1 <- "20260601"
+movie_info <- 'movie/searchMovieInfo.'
+p1 <- "&movieCd="
+para1 <- "20149629"
+# pick service type
+service <- box_office_weekly
+type <- 'json'
+base_url <- "http://www.kobis.or.kr/kobisopenapi/webservice/rest/"
+key <- "?key="
+url <- paste0(base_url,
+              service,
+              type,
+              key,
+              api_key,
+              p1,
+              para1)
+url
+# https://www.kobis.or.kr/kobisopenapi/homepg/main/main.do
+# http://commres.net/api_kof for xml method
+url
+response <- GET(
+  url = url
+)
+status_code(response) == 200
+raw_content <- content(response, as = "text", encoding = "UTF-8")
+json_data <- fromJSON(raw_content)
+print(json_data)
+print(json_data$boxOfficeResult$weeklyBoxOfficeList)
+print(json_data$boxOfficeResult$weeklyBoxOfficeList$movieCd)
+# 영화상세요청 . . . .
+# http://www.kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieInfo.xml (또는 .json)
+# http://www.kobis.or.kr/kobisopenapi/webservice/rest/movie/searchMovieInfo.json?key=82ca741a2844c5c180a208137bb92bd7&movieCd=20124079
+# http://www.kobis.or.kr/kobisopenapi/webservice/rest/
+# movie/searchMovieInfo.
+# json
+# ?key=
+# 82ca741a2844c5c180a208137bb92bd7
+# &movieCd=20124079
+service <- movie_info
+p1 <- "&movieCd="
+para1 <- "20070352"
+print(para1)
+url <- paste0(base_url,
+              service,
+              type,
+              key,
+              api_key,
+              p1,
+              para1)
+url
+# 2. Define your query parameters as a named list
+response <- GET(url = url)
+status_code(response) == 200
+raw_content <- content(response, as = "text", encoding = "UTF-8")
+raw_content
+json_data <- fromJSON(raw_content)
+json_data
+json_data$movieInfoResult$movieInfo$directors
+json_data$movieInfoResult$movieInfo$actors
+</code>