Только вчера делал это) держи schedule <- NULL dates <- NULL for (i

Question

Только вчера делал это) держи schedule <- NULL dates <- NULL for (i

in 2013:(lubridate::year(Sys.Date()))) {
sch <- httr::GET(paste0("https://isdayoff.ru/api/getdata?year=",i)) %>%
httr::content(encoding = 'UTF-8')
sch <- strsplit(sch,"")[[1]]
schedule <- c(schedule, sch)
from <- paste0(i,'-01-01') %>% as.Date()
to <- paste0(i,'-12-31') %>% as.Date()
dates <- c(dates, as.character(seq.Date(from, to, 'day')))
}

calendar <- data.frame(date = dates, is_weekend = schedule) %>% mutate(date = as.Date(date))

сори за говнокод, нужно было сделать быстро

#programming #r #russian

0

28.09.2019

1 ответов

20 просмотров

Александр · Accepted Answer

Александр

спасибо за код, наверно достаточно было бы просто ссылки на сайтик) Кстати сайт немного странный, апи по запросу https://isdayoff.ru/api/getdata?year=2018&month=05 отдала 1.100110010011e+30

0

28.09.2019

169 похожих чатов

Только вчера делал это) держи schedule <- NULL dates <- NULL for (i

1 ответов

Похожие вопросы