r语言 - 为什么在函数中使用 tidycensus get_decennial() 时会失败?

Question

我对为什么会发生此错误感到非常困惑。我正在尝试编写一个函数，该函数将字符串从tidycensus包传递给get_decennial()，但它抛出了一个错误。

我能够在函数范围之外成功运行相同的代码。我似乎无法理解为什么将输入传递给函数会使其失败。特别是，因为我成功地将一个对象传递给已经为county参数的函数(如下所示(。还有其他人遇到过这样的事情吗？我认为下面的示例说明了这个问题。我尝试复制上次调用的输出/错误，但提前为低质量的格式道歉。

library(tidycensus)
library(dplyr)
census_api_key(Sys.getenv("CENSUS_API_KEY")) # put your census api key here
oregon <- filter(fips_codes, state_name == "Oregon")
oregon_counties <- oregon$county_code  
# this works
why_does_this_work <- "Oregon"
get_decennial(geography = "block group", 
state = why_does_this_work, 
variables = "H00010001",
county = oregon_counties,
quiet = TRUE)

# why doesn't this work
why_doesnt_this_work <- function(x) {
get_decennial(geography = "block group", 
state = x, 
variables = "H00010001",
county = oregon_counties,
quiet = TRUE)
}
why_doesnt_this_work("Oregon")

Getting data from the 2010 decennial Census

Getting data from the 2010 decennial Census
Getting data from the 2010 decennial Census
Error : Result 1 is not a length 1 atomic vector
In addition: Warning messages:
1: '03' is not a valid FIPS code or state name/abbreviation


2: '03' is not a valid FIPS code or state name/abbreviation"显示回溯

使用调试重新运行 错误 gather_(data， key_col = compat_as_lazy(enquo(key((， value_col = compat_as_lazy(enquo(value((， ： 未使用的参数 (-NAME(">

Answer 1

因为 R 如何沿环境层次结构评估对象。 换句话说，在 get_decennial(( 函数的代码中已经有一个名为"x"的元素。您的自定义函数 why_doesnt_this_work(( 的计算级别与 get_decennial(( 相同。因此，至少两个元素/对象的相同值应用于get_decennial管道，从而破坏事物。

要解决此问题，只需将自定义 x 重命名为get_decennial期望的名称，即"状态"。

why_doesnt_this_work <- function(state) {
get_decennial(geography = "block group", 
state = as.character(state), 
variables = "H00010001",
county = oregon_counties,
quiet = TRUE)
}
why_doesnt_this_work('Oregon') ## Now it works!