twitchr::get_videos 在 `vec_slice_impl()` 中给出内部错误：意外的 `NULL`

编程问答 2022-05-02

问题描述

我正在尝试使用 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)
}

在ma​​ke_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 (将#修改为@）

dplyrdplyrrrtwitchtwitch-api