主页 / coding / 问题 / 77671466
Accepted
TarJae
Asked: 2023-12-16 23:26:57 +0800 CST

我们如何将注释和新行代码放在同一行

  • 772

没有什么特殊的背景，我只是好奇是否有这方面的考虑：

据我所知，在 R 中，不可能在同一行上包含注释和新代码行，请参阅注释 @Ben Bolker，如本示例所示：

在此输入图像描述

我在2018 年 stackoverflow 和2022 年 stackoverflow中找到了这个。后者使用的自定义函数%com%对我来说不起作用：

library(dplyr)

`%com%` <- function(lhs, rhs){
  lhs #rhs
}

mtcars %>% 
  select(cyl, mpg, %com%am, wt) %>% 
  head()

Error: unexpected SPECIAL in:
"mtcars %>% 
  select(cyl, mpg, %com%"

我通常喜欢：

mtcars %>% 
  select(cyl, mpg, 
         #am, 
         wt) %>% 
  head()

2 个回答

  1. Best Answer

    R 的注释功能被硬编码到解析器中。我们无法真正欺骗解析器，但我们可以给用户一种我们是这样的错觉。我们可以建立一个系统，通过符号.%\%'打开评论并'%\%.关闭它。

    例如：

    mtcars %>% 
  select(cyl, mpg, .%\%' am, wt '%\%.) %>% 
  head()
#>                   cyl  mpg
#> Mazda RX4           6 21.0
#> Mazda RX4 Wag       6 21.0
#> Datsun 710          4 22.8
#> Hornet 4 Drive      6 21.4
#> Hornet Sportabout   8 18.7
#> Valiant             6 18.1

    实现会是这样的：

    `%\\%` <- function(a, b) {
  
  mc <- as.list(match.call())
  if(deparse(mc$a) == "." & deparse(mc$b) == ".") return(invisible(NULL))
  if(deparse(mc$a) != "." & deparse(mc$b) != ".")
    stop("could not find function `%\\%")
  
  if(deparse(mc$a) == ".") {
    if(!is.character(mc$b)) stop("could not find function .%\\%")
    return(invisible(NULL))
  }
  eval(mc$a)
}

    当然，这对于常规使用来说有点笨拙，除非您在 IDE 中设置了注释/取消注释宏。还有一些地方它可能会导致语法错误，或者它无形地返回 NULL 的事实可能会产生意想不到的结果，所以我自己实际上不会使用它 - 它只是一种方法的说明。

    • 2

  2. 如果这是关于包含/排除元素而不删除代码，则可以将 element 设置为NULL.

    > f <- \(x, include=TRUE) if (include) x else NULL
> subset(mtcars, select=c(cyl, mpg, f(am), wt)) |> head()
                  cyl  mpg am    wt
Mazda RX4           6 21.0  1 2.620
Mazda RX4 Wag       6 21.0  1 2.875
Datsun 710          4 22.8  1 2.320
Hornet 4 Drive      6 21.4  0 3.215
Hornet Sportabout   8 18.7  0 3.440
Valiant             6 18.1  0 3.460
> subset(mtcars, select=c(cyl, mpg, f(am, F), wt)) |> head()
                  cyl  mpg    wt
Mazda RX4           6 21.0 2.620
Mazda RX4 Wag       6 21.0 2.875
Datsun 710          4 22.8 2.320
Hornet 4 Drive      6 21.4 3.215
Hornet Sportabout   8 18.7 3.440
Valiant             6 18.1 3.460
> inc <- FALSE
> subset(mtcars, select=c(cyl, mpg, f(am, inc), f(wt, inc))) |> head()
                  cyl  mpg
Mazda RX4           6 21.0
Mazda RX4 Wag       6 21.0
Datsun 710          4 22.8
Hornet 4 Drive      6 21.4
Hornet Sportabout   8 18.7
Valiant             6 18.1
    • 1

相关问题