lists_statuses() does not return tweet photo info if there are multiple photos

[smach]

Problem

lists_statuses() function does not return info about photos in a tweet if the tweet has more than one photo

Expected behavior

Returned data should include a list of all photo URLs if there is more than one photo in the tweet. Other functions in the package do so.

Reproduce the problem

sample1 <- get_timeline("ericfisher") %>%
  filter(status_id == "1335580351616442368")  %>%
  select(screen_name, text, media_url, ext_media_url, media_type)
sample2 <- lists_statuses(slug = "weather", owner_user = "sharon000", n = 1000)  %>%
  filter(status_id == "1335580351616442368")  %>%
  select(screen_name, text, media_url, ext_media_url, media_type)

 sample1$ext_media_url
[[1]]
[1] "http://pbs.twimg.com/media/EojvNehXcAAOCuU.png"
[2] "http://pbs.twimg.com/media/EojvOrWWMAA5Eqe.png"

> sample2$ext_media_url
[[1]]
[1] NA

rtweet version

## copy/paste output
packageVersion("rtweet")

[1] ‘0.7.0’

[hadley]

@smach would you mind updating this reprex? Then I can take a look.

[smach]

library(rtweet)
library(dplyr)
sample1 <- get_timeline("MaggieShiltagh") %>%
  filter(status_id == "1367793626034606087")  %>%
  select(screen_name, text, media_url, ext_media_url, media_type)

sample2 <- lists_statuses(slug = "ddj", owner_user = "sharon000", n = 1000)  %>%
  filter(status_id == "1367793626034606087")  %>%
  select(screen_name, text, media_url, ext_media_url, media_type)

sample1$ext_media_url
[[1]]
[1] "http://pbs.twimg.com/media/EvtghlPXIAE5c2g.jpg"
[2] "http://pbs.twimg.com/media/EvtgjWYXYAAT3qV.jpg"

sample2$ext_media_url
[[1]]
[1] NA

[hadley]

Looks like this is fixed in the dev version 😄

library(rtweet)
library(dplyr, warn.conflicts = FALSE)

sample1 <- get_timeline("MaggieShiltagh") %>%
  filter(status_id == "1367793626034606087")  %>%
  select(screen_name, text, media_url, ext_media_url, media_type)
#> Reading token from ~/Library/Caches/rtweet/auth.rds
sample1$ext_media_url
#> [[1]]
#> [1] "http://pbs.twimg.com/media/EvtghlPXIAE5c2g.jpg"
#> [2] "http://pbs.twimg.com/media/EvtgjWYXYAAT3qV.jpg"

sample2 <- lists_statuses(slug = "ddj", owner_user = "sharon000", n = 1000)  %>%
  filter(status_id == "1367793626034606087")  %>%
  select(screen_name, text, media_url, ext_media_url, media_type)
sample2$ext_media_url
#> [[1]]
#> [1] "http://pbs.twimg.com/media/EvtghlPXIAE5c2g.jpg"
#> [2] "http://pbs.twimg.com/media/EvtgjWYXYAAT3qV.jpg"

^{Created on 2021-03-05 by the reprex package (v1.0.0)}