gen_reljoin_table doesn't respect variables with the same name as before

[kieranjmartin]

If in a relational table I generate a variable that already exists in the base data set, the original will be kept; I this is due to the behaviour of cbind.data.frame (

respectables/R/create_data.R

Line 110 in e0c0f31

patdf <- cbind.data.frame(patdf, newcols)

).

Example:

DM <- tribble(
  ~USUBJID, ~DOMAIN,
  1, "DM",
  2, "DM"
)

join_fun <- rand_per_key("USUBJID","DM", mincount = 0, maxcount = 5, prop_present = 1)
AE_join_recipe <-  tribble(~foreign_tbl, ~foreign_key, ~func, ~func_args,
                           "DM", "USUBJID", "join_fun", list())

AE_recipe<- tribble(
  ~variables,       ~dependencies,      ~func,               ~func_args,
  "DOMAIN",          NULL,              rep_n,               list(val = "AE"),
  
)



AE <- gen_reljoin_table(AE_join_recipe, AE_recipe, db = list(DM = DM))