Skip to content

More glue fails and sneak case #1466

Description

@latot

Hi, I was running linting and found this:

test.R

df <- data.frame(list(
a = c(1, 2, 3)
))

v <- "a"

dplyr::mutate(df, !!paste0(tolower(v), "_l") := df$a * 2)

The output of the linting:

test.r:7:31: style: [object_name_linter] Variable and function name style should be snake_case or symbols.
dplyr::mutate(df, !!paste0(v, "_l") := df$a * 2)

Thx!

Activity

  1. IndrajeetPatil commented on Jul 24, 2022

    @IndrajeetPatil
    Collaborator

    Reprex:

    library(lintr)
    
    df <- dplyr::tibble(a = c(1))
    v <- "a"
    
    dplyr::mutate(df, !!paste0(tolower(v), "_l") := df$a * 2)
    #> # A tibble: 1 × 2
    #>       a   a_l
    #>   <dbl> <dbl>
    #> 1     1     2
    
    lint(
      text = 'dplyr::mutate(df, !!paste0(v, "_l") := df$a * 2)',
      linter = object_name_linter()
    )
    #> <text>:1:31: style: [object_name_linter] Variable and function name style should be snake_case or symbols.
    #> dplyr::mutate(df, !!paste0(v, "_l") := df$a * 2)
    #>                               ^~~~

    Created on 2022-07-24 by the reprex package (v2.0.1)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Metadata

Metadata

Assignees

No one assigned

    Labels

    false-positivecode that shouldn't lint, but does

    Type

    No type

    Projects

    No projects

      Milestone

      No milestone

      Relationships

      None yet

      Development

      No branches or pull requests

      Issue actions