Can't access the .y value from map2. when using mutate. inside map2. about tidytable HOT 8 CLOSED

library(tidyverse, warn.conflicts = FALSE)
library(rlang, warn.conflicts = FALSE)
library(tidytable, warn.conflicts = FALSE)
library(data.table, warn.conflicts = FALSE)

new_mutate. <- function(.df, ..., by = NULL) {

  dots <- enquos(...)
  by <- enquo(by)
  by <- tidytable:::vec_selector_by(.df, !!by)
  .df <- copy(.df)
  
  dt_quo <- quo(.df[ , ':='(!!!dots), by = !!by][])

  eval_tidy(dt_quo, .df)
}

data <- tibble(
    id = seq(1, 3),
    val_1 = seq(1, 3, 1),
    val_2 = seq(4, 6, 1)
)

# Now works
data %>%
  nest_by.(id) %>%
  new_mutate.(example_1 = map2.(data, id, ~ .x %>%
                              new_mutate.(id = .y))) %>%
  unnest.(example_1)
#>    id val_1 val_2 id1
#> 1:  1     1     4   1
#> 2:  2     2     5   2
#> 3:  3     3     6   3

# Fails when using "by" parameter
data.table(x = 1:3, y = c("a", "a", "b")) %>%
  new_mutate.(double_x = x * 2,
              avg_x = mean(x),
              by = y)
#> Error: Base operators are not defined for quosures.
#> Do you need to unquote the quosure?
#> 
#>   # Bad:
#>   myquosure == rhs
#> 
#>   # Good:
#>   !!myquosure == rhs

library(rlang, warn.conflicts = FALSE)
library(data.table, warn.conflicts = FALSE)
library(tidytable, warn.conflicts = FALSE)

new_nest_by. <- function(.data, ..., .key = "data", .keep = FALSE) {

  .data <- as_tidytable(.data)
  .keep <- .keep

  dots <- enexprs(...)

  if (length(dots) == 0) {

    .data <- tidytable:::eval_expr(.data[, list(data = list(.SD))])

  } else {
    
    split_vars <- tidytable:::dots_selector(.data, ...)
    
    split_list <- group_split.(.data, !!!split_vars, .keep = .keep)

    .data <- distinct.(.data, !!!split_vars)
    
    .data <- mutate.(.data, data = !!split_list)
  }

  if (.key != "data") .data <- rename.(.data, !!.key := data)

  .data
  
}

test_df <- data.table(
  id = LETTERS[seq(1, 3)],
  val_1 = seq(1, 3, 1),
  val_2 = seq(4, 6, 1)
)

test_df %>%
  new_nest_by.(id, .keep = TRUE) %>%
  unnest.(data)
#>    id id1 val_1 val_2
#> 1:  A   A     1     4
#> 2:  B   B     2     5
#> 3:  C   C     3     6

mutate.(example_1 = map2.(data, id, ~.x %>% 
                                  mutate.(id = .y)))

library(dplyr, warn.conflicts = FALSE)
library(tidytable, warn.conflicts = FALSE)
    
data <- tibble(
  id = LETTERS[seq(1, 3)],
  val_1 = seq(1, 3, 1),
  val_2 = seq(4, 6, 1)
)

data %>% 
  nest_by.(id) %>% 
  mutate.(example_1 = map2.(data, id, ~.x %>% 
                              mutate.(id = .y))) %>% 
  unnest.(example_1)
#>    id val_1 val_2 id1
#> 1:  A     1     4   A
#> 2:  B     2     5   B
#> 3:  C     3     6   C

library(tidytable, warn.conflicts = FALSE)

test_df <- data.table(
  id = seq(1, 3),
  val_1 = seq(1, 3, 1),
  val_2 = seq(4, 6, 1)
)

test_df %>%
  nest_by.(id) %>%
  mutate.(example_1 = map2.(data, id, ~ .x %>%
                              mutate.(id = .y))) %>%
  unnest.(example_1)
#>    id val_1 val_2 id1
#> 1:  1     1     4   1
#> 2:  2     2     5   2
#> 3:  3     3     6   3