Initial parsing of withheld_* fields.

Close #647

NEWS.md

@@ -13,6 +13,8 @@
   
 - Message are now properly capitalized (#565, @jsta)  
 
+- Fields `withheld_scope`, `withheld_copyright`, `withheld_in_countries` are now correctly parsed (#647).
+
 - Banned or protected accounts now trigger a warning instead of an error (#590)
 
 - `get_friends()` and `get_followers()` return similar formatted output with 

R/tweet_object.R

@@ -30,11 +30,13 @@ tweet <- function(x) {
                       metadata = NA,
                       query = NA,
                       user = I(list(list())),
+                      withheld_scope = NA_character_,
+                      withheld_copyright = NA,
+                      withheld_in_countries = NA_character_,
                       possibly_sensitive_appealable = NA)
   if (NROW(x) == 0) {
     return(empty)
   }
-
   tb <- x
   #  Some fields seem to depend on what is needed
   # possibly_sensitive, full_text, extended_entities

tests/testthat/test-tweet_object.R

@@ -0,0 +1,7 @@
+test_that("tweet works with withheld_* #647", {
+  lu <- rtweet::lookup_tweets("1168343686863892480")
+  expect_true(is.data.frame(lu))
+  expect_true(lu$withheld_copyright)
+  expect_equal(lu$withheld_in_countries, list("XY"))
+  expect_equal(lu$withheld_scope, "status")
+})