kreditjob_dashboard.R

library(httr)
library(dplyr)
library(purrr)
library(writexl)

tar <- "https://kreditjob.com/api/dashboard/filter"

body <- list("bjd_code"= F,
             "data_ym"= "1903",
             "industry"= F,
             "max_prsn"= F,
             "max_prsn_ratio"= F,
             "max_salary"= F,
             "max_sales"= F,
             "min_prsn"= F,
             "min_prsn_ratio"= F,
             "min_salary"= F,
             "min_sales"= F,
             "only_good_cmpn"= F,
             "order"= "DESC",
             "page"= 1,
             "size"= 5,
             "sort"="SALES_VALUE")

POST(tar, body = body, encode = "json") %>% 
  content() %>% 
  with(total_count) -> 
  cnt

size <- 1000

1:(as.integer(cnt/size)+1) %>% 
  map(
    ~ list(
      "bjd_code" = F,
      "data_ym" = "1903",
      "industry" = F,
      "max_prsn" = F,
      "max_prsn_ratio" = F,
      "max_salary" = F,
      "max_sales" = F,
      "min_prsn" = F,
      "min_prsn_ratio" = F,
      "min_salary" = F,
      "min_sales" = F,
      "only_good_cmpn" = F,
      "order" = "DESC",
      "page" = .x,
      "size" = size,
      "sort" = "SALES_VALUE"
    )
  ) %>% 
  map_dfr(
    ~ POST(tar, body = .x, encode = "json") %>% 
      content() %>% 
      with(list) %>% 
      map_dfr(~ as_tibble(.x) %>%
                when(.$OPEN_YN == "0" ~ tibble(),
                     ~ .))
    
  ) ->
  krdj

write_xlsx(krdj, "krdj.xlsx")

👍