如何解决twitchr::get_videos 在 `vec_slice_impl()` 中给出内部错误:意外的 `NULL`
我正在尝试使用 R 中 twitchr 包的 get_videos 函数获取用户的视频信息。
当我运行它时,控制台会给我以下输出:
videos <- get_videos(user_id = 613890167,clean_json = T)
Error: Internal error in `vec_slice_impl()`: Unexpected `NULL`.
Run `rlang::last_error()` to see where the error occurred.
> rlang::last_error()
<error/rlang_error>
Internal error in `vec_slice_impl()`: Unexpected `NULL`.
Backtrace:
1. twitchr::get_videos(user_id = 613890167)
8. dplyr::bind_rows(.)
9. vctrs::vec_rbind(!!!dots,.names_to = .id)
Run `rlang::last_trace()` to see the full context.
> rlang::last_trace()
<error/rlang_error>
Internal error in `vec_slice_impl()`: Unexpected `NULL`.
Backtrace:
█
1. ├─twitchr::get_videos(user_id = 613890167)
2. │ └─twitchr:::make_request(...)
3. │ └─twitchr:::clean_videos(response_content)
4. │ └─`%>%`(...)
5. ├─twitchr:::date_formatter(.)
6. │ └─`%>%`(...)
7. ├─dplyr::mutate(...)
8. └─dplyr::bind_rows(.)
9. └─vctrs::vec_rbind(!!!dots,.names_to = .id)
10. └─(function () ...
它似乎适用于 videos <- get_videos (user_id = 613890167,clean_json = F)
。
所以我尝试在 get_videos 函数中查找错误:
function (id = NULL,user_id = NULL,game_id = NULL,after = NULL,before = NULL,first = NULL,language = NULL,period = NULL,sort = NULL,type = NULL,clean_json = TRUE)
{
d <- make_request(end_point = "videos",clean_json = clean_json,id = id,user_id = user_id,game_id = game_id,after = after,before = before,first = first,language = language,period = period,sort = sort,type = type)
return(d)
}
在make_request
function (end_point,...,clean_json = TRUE)
{
formatted_params <- format_parameters(...)
base_url <- "https://api.twitch.tv/helix/"
url_end_point <- glue::glue("{base_url}{end_point}{formatted_params}")
response <- httr::GET(url = url_end_point)
check_status(response)
response_content <- httr::content(response)
if (length(response_content$data) == 0) {
usethis::ui_warn("The request is successful,however,there is no data in the response.")
return(NULL)
}
if (clean_json == TRUE) {
if (end_point == "bits/cheermotes") {
result <- clean_bits_cheermotes(response_content)
}
if (end_point == "videos") {
result <- clean_videos(response_content)
}
if (end_point == "users") {
result <- clean_users(response_content)
}
if (end_point == "games") {
result <- clean_games(response_content)
}
if (end_point == "games/top") {
result <- clean_top_games(response_content)
}
if (end_point == "clips") {
result <- clean_clips(response_content)
}
if (end_point == "search/channels") {
result <- clean_search_channels(response_content)
}
if (end_point == "tags/streams") {
result <- clean_get_all_stream_tags(response_content)
}
if (end_point == "streams/tags") {
result <- clean_stream_tags(response_content)
}
if (end_point == "search/categories") {
result <- clean_search_categories(response_content)
}
if (end_point == "users/follows") {
result <- clean_get_follows(response_content)
}
}
else {
result <- response_content
}
return(result)
}
在clean_videos
function (response_content)
{
data_clean <- response_content %>% purrr::pluck("data") %>%
dplyr::bind_rows() %>% date_formatter()
return_list <- list(data = data_clean,pagination = response_content$pagination$cursor)
return(return_list)
}
问题似乎是由 dplyr :: bind_rows ()
引起的,确实:
videos <- get_videos(user_id = 238617149,clean_json = F)
xx=videos %>% purrr::pluck("data")
dplyr::bind_rows(xx)
Error: Internal error in `vec_slice_impl()`: Unexpected `NULL`.
Run `rlang::last_error()` to see where the error occurred.
data.table::rbindlist(xx)
而不是 dplyr::bind_rows(xx)
似乎有效。
但是如果我定义函数 clean_videos 写 data.table::rbindlist(xx)
而不是 dplyr::bind_rows(xx)
:
clean_videos = function (response_content)
{
data_clean <- response_content %>% purrr::pluck("data") %>%
data.table::rbindlist() %>% date_formatter()
return_list <- list(data = data_clean,pagination = response_content$pagination$cursor)
return(return_list)
}
当我再次尝试 videos <- get_videos(user_id = 613890167,clean_json = T)
时,控制台给了我与输出相同的错误。
我该如何解决问题?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。