Pipeline cases that don't work about datamations HOT 3 CLOSED

library(datamations)
library(dplyr)

datamation_sanddance("small_salary %>% summarize(mean = mean(Salary))")

library(dplyr)
library(datamations)

small_salary_eg <- small_salary %>%
  mutate(highest_degree = Degree)

datamation_sanddance(
  pipeline = "small_salary_eg %>% group_by(highest_degree)",
)

library(dplyr)
library(datamations)

small_salary_eg <- small_salary %>%
  mutate(degreework = paste0(Degree, "_", Work))

datamation_sanddance(
  pipeline = "small_salary_eg %>% group_by(degreework)")

library(dplyr)
library(datamations)

small_salary_eg <- small_salary %>%
  mutate(degreework = paste0(Degree, ".", Work))

datamation_sanddance(
  pipeline = "small_salary_eg %>% group_by(degreework)")

library(dplyr)
library(datamations)

datamation_sanddance("mtcars %>% group_by(carb, gear) %>% summarise(wt = mean(wt))")

library(datamations)

"small_salary %>% group_by(Degree) %>% summarize(mean = mean(Salary))" %>%
  parse_pipeline()
#> [[1]]
#> small_salary
#> 
#> [[2]]
#> group_by(Degree)
#> 
#> [[3]]
#> summarize(mean = mean(Salary))

"group_by(small_salary, Degree) %>% summarize(mean = mean(Salary))" %>%
  parse_pipeline()
#> [[1]]
#> small_salary
#> 
#> [[2]]
#> group_by(Degree)
#> 
#> [[3]]
#> summarize(mean = mean(Salary))

"group_by(palmerpenguins::penguins, Degree, Work) %>% summarize(mean = mean(bill_length_mm))" %>%
  parse_pipeline()
#> [[1]]
#> palmerpenguins::penguins
#> 
#> [[2]]
#> group_by(Degree, Work)
#> 
#> [[3]]
#> summarize(mean = mean(bill_length_mm))