Displaying 2 results from an estimated 2 matches for "cols_tmp".
2023 Jan 27
0
Resumen de R-help-es, Vol 167, Envío 10
...t; #--- Función compara parejas de columnas comienzan por mismas 2 letras.
> > *colcompare <- function(df)* {
> +
> + nam_val <- names(df) %>% stri_sub(from = 1, to = 2) %>% unique()
> + res_df <- data.table()
> + for (i in 1:length(nam_val)) {
> + cols_tmp <- nam_val[i]
> + df_tmp <- df %>% select.(starts_with(cols_tmp)) %>%
> + rename.( a = 1) %>%
> + rename.( b = 2) %>%
> + mutate.( c = if_else.( a == 1 | b == 1, 1, 0)) %>%
> + select.(c) %>%
> + as.data.table()
>...
2023 Jan 28
0
Resumen de R-help-es, Vol 167, Envío 10
...t; #--- Función compara parejas de columnas comienzan por mismas 2 letras.
> > *colcompare <- function(df)* {
> +
> + nam_val <- names(df) %>% stri_sub(from = 1, to = 2) %>% unique()
> + res_df <- data.table()
> + for (i in 1:length(nam_val)) {
> + cols_tmp <- nam_val[i]
> + df_tmp <- df %>% select.(starts_with(cols_tmp)) %>%
> + rename.( a = 1) %>%
> + rename.( b = 2) %>%
> + mutate.( c = if_else.( a == 1 | b == 1, 1, 0)) %>%
> + select.(c) %>%
> + as.data.table()
>...