Início / coding / Perguntas / 77671466
Accepted
TarJae
Asked: 2023-12-16 23:26:57 +0800 CST

Como poderíamos colocar um comentário e uma nova linha de código na mesma linha

  • 772

Não há nenhum histórico especial, só estou curioso para saber se há alguma consideração a respeito:

Até onde sei, em R não é possível incluir um comentário e uma nova linha de código na mesma linha, veja o comentário @Ben Bolker , conforme demonstrado neste exemplo:

insira a descrição da imagem aqui

Encontrei isso em 2018 stackoverflow e isso em 2022 stackoverflow . Este último usando uma função personalizada %com%que não funcionou para mim:

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%"

Eu costumo gostar de:

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

2 respostas

  1. Best Answer

    O recurso de comentários do R é codificado no analisador. Na verdade, não podemos enganar o analisador, mas podemos dar ao usuário a ilusão de que sim. Podemos configurar um sistema em que os símbolos .%\%'abrem e '%\%.fecham um comentário.

    Então, por exemplo:

    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

    A implementação seria algo como:

    `%\\%` <- 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)
}

    Claro, isso é um pouco complicado para uso regular, a menos que você configure uma macro de comentar/descomentar em seu IDE. Há também lugares onde isso pode causar um erro de sintaxe, ou o fato de retornar NULL de forma invisível pode fornecer resultados inesperados, então eu não usaria isso sozinho - é apenas uma ilustração de um tipo de abordagem.

    • 2

  2. Se se trata de incluir/excluir um elemento sem excluir o código, você pode definir o elemento como 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

relate perguntas