在“`timetk`”中，函数`tk_make_weekend_sequence`的结果没有显示任何内容

Question

在timetk中，函数tk_make_weekend_sequence的结果没有显示任何结果。有人能帮忙吗？谢谢!

library(timetk)

weekends <- tk_make_weekend_sequence(
  start_date = "2017-01-01",
  end_date   = "2017-12-31"
)

weekends

​

​

Answer 1

要解决这个问题，您需要为"LC_TIME"设置一个英语环境

Sys.setlocale("LC_TIME", "English")

weekends <- tk_make_weekend_sequence(
  start_date = "2017-01-01",
  end_date   = "2017-12-31"
)

weekends

函数tk_make_weekend_sequence使用与本地语言设置一起工作的lubridate::wday函数。

ret_tbl <- tibble::tibble(date_sequence = date_sequence) %>%
    dplyr::mutate(weekday = lubridate::wday(date_sequence, label = TRUE)) %>%
    dplyr::filter((weekday == "Sat" | weekday == "Sun"))

问题是由最后一行的filter触发的。如果您不更改"LC_TIME"，则工作日将是您的母语中日期名称的缩写。