当第一个参数用“。”引用时，为什么 if() 函数内部的管道会失败

Question

我花了 45 分钟让一个非常简单的 if() 在循环中工作，但我想了解它为什么会失败。

这是一个简单的 R Magrittr 管道链，大括号 if() 条件{}

这是简化的代表（可重现的示例）

library(tidyverse) # load tidyverse library

a <- tibble(a1 = 1:6, a2 = 6:1, a3 = rep(c('a', 'b'),3), a4 = as_factor(5:10))

# function to check the data type of a column

# Fails
check1 <- function(.df, .colm)
{
  .df %>%
     { if(. %>% pull(var = {{.colm}}) %>% is.character()) 1 else 2} # pull .colm from .df and check if is char

}

# Works
check2 <- function(.df, .colm)
{
  .df %>%
    {if(pull(., var = {{.colm}}) %>% is.character()) 1 else 2} # pull .colm from .df and check if is char
  
}

check1(a, a1) # Fails
#> Error in if (. %>% pull(var = {: argument is not interpretable as logical
check2(a, a1) # Works
#> [1] 2

^{由reprex package (v0.3.0) 于 2021-03-30 创建}

如果有更简单的方法来检查数据框中列的class()，请告诉我，该方法可以概括为从用户输入中获取列名到函数

Answer 1

有两个问题：

1. 对 check1 和 check2 的调用都会出错，因为它们的输入尚未定义

2. 仅以左侧的点开头的 magrittr 管道定义了一个函数，因此在第一种情况下，if 的条件部分内的部分定义了一个函数，而不是逻辑条件。

    library(magrittr)
   
    f <- . %>% { . ^ 2 }
    f(3)
    ## [1] 9
   

同样的原因失败了

      library(purrr)
      library(dplyr)

      BOD %>% { if (. %>% pull("demand") %>% is.numeric) 1 else 0 }

但这有效，因为左侧现在是 (.) 而不仅仅是 .

      BOD %>% { if ( (.) %>% pull("demand") %>% is.numeric) 1 else 0 }