在此地理编码示例中，应该在丢弃函数中使用哪些参数？

Question

我正在尝试将Twitter个人资料位置地理编码为纬度和经度，并希望将本教程用作指导。 https://rud.is/books/21-recipes/geocoding-locations-from-profiles-or-elsewhere.html

一旦收集了一般用户信息，在此如何正确使用丢弃功能？我运行了他们的示例代码并得到了丢弃错误（user_info $ location，==，““）：未使用的参数（”“）]

紧接着是一个错误，找不到对象“已编码”。缺少哪些论据，我将如何到达获取经/纬度的最后一步？

#Code from tutorial
library(rtweet)

library(ggmap)

library(tidyverse)

rstats_us <- search_tweets("#rstats", 3000)

user_info <- lookup_users(unique(rstats_us$user_id))

 discard(user_info$location, `==`, "") %>% 
 ggmap::geocode() -> coded

 coded$location <- discard(user_info$location, `==`, "")

user_info <- left_join(user_info, coded, "location")

期望的输出是我叫的小标题，我将得到行，位置和坐标。

错误消息

Error in discard(user_info$location, `==`, "") : unused argument ("")
Error in tbl_vars_dispatch(x) : object 'coded' not found

Answer 1

您想要：

user_info$location %>% discard(. == "")

或

discard(user_info$location, ~.x == "")

discard正在寻找逻辑谓词或测试。有关更多信息，请参见?discard。

编辑：

这是一个简单的示例：

library(purrr)
v <- c("New York", "", "San Francisco", "Chicago", "")
discard(v, ~.x == "")

[1] "New York"      "San Francisco" "Chicago"