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

Question

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

收集了一般用户信息后，这里的丢弃功能到底是怎么用的？我运行他们的示例代码得到了丢弃错误（user_info$location，==，“”）：未使用的参数（“”）

后跟错误，找不到对象 "coded"。缺少哪些参数以及我将如何到达获得 lat/long 的最后一步？

#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")

预期的输出是我调用 tibble 我会有行、位置和坐标。

错误信息

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"

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

What arguments should be used in discard function in this geocoding example?

geocoding

r