sandbox/sandbox.R

In amygoldlist/aggRviz: A package for dealing with data aggregated at many levels

library(dplyr)
load("example_data/yummy.Rda")
library(rlang)


dat_1

dat_2

#newdf <- inner_join(dat_1, dat_2)


### dat_1 is colour, dessert, fruit
### dat_2 is colour Sweet_or Salty, Fruit




df1 <- dat_1 %>%
  filter(Dessert == "") %>%
  select(-Dessert)

df2 <- dat_2 %>%
  filter(Sweet_or_Salty=="") %>%
  select(-Sweet_or_Salty)

df2

df <- inner_join(df1,df2)


df

###OR:

feat_names <- c("Colour", "Sweet_or_Salty", "Fruit", "Dessert")

### add stuff:


dat <- dat_1

dat

col_2_rename <- c("Colour", "Dessert")

###works
dat %>%
  select(!!col_2_rename)

dat %>%
  rename_(one_of(paste0(col_2_rename,"_x")) = one_of(col_2_rename))

dat %>%
  rename(cake = Dessert)


dplyr::select(dplyr::one_of(keepers))

dat %>%
  rename(!!paste0(col_2_rename,"_x"):= col_2_rename)


dat %>%
  rename_at(vars(col_2_rename), ~paste0(col_2_rename,"_x"))