Question: I'm creating a set of React components from JSON data. I'm trying to attach an OnClick function to each component, but it is not working.

In this example two dynamic components (Workers, renderWorkers) from JSON data and two hard-coded components (Worker, renderWorker) are created. The latter ones have working OnClick functions (selectWorker, doing console.log messages). I tried to attach the functions (selectWorker2) to components in a similar way.

<https://codesandbox.io/s/frosty-lichterman-b9npo?file=/src/index.js>

Am I doing this totally wrong?

Answer: 
I appreciate everyone's responses on this. And I agree, it seems to me that `across()` doesn't make this kind of thing easy, and that extra steps are needed. 

Here's how I solved it: 

```
dummy_vars<- outcome_data %>% purrr::keep(~all(c("0", "1") %in% .x) & length(unique(.x)) <= 3) %>% names()

outcome_data<- outcome_data %>% dplyr::mutate(across(all_of(dummy_vars), as.numeric))

```
There was a series of issues on this topic on the `dplyr` Github, so they have now implemented a function that accepts predicates, `where()`. Like across, it's currently available through `remotes::install_github('tidyverse/dplyr')`.

Following A. Suliman's example, we can now use:

```r
library(dplyr)

mtcars %>%
  mutate(across(.cols = where(~any(c(0, 1, 2, NA) %in% .x) & length(unique(as.numeric(.x))) <= 3), 
                as.character)) %>%
  str()
#> 'data.frame':    32 obs. of  11 variables:
#>  $ mpg : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
#>  $ cyl : num  6 6 4 6 8 6 8 4 4 6 ...
#>  $ disp: num  160 160 108 258 360 ...
#>  $ hp  : num  110 110 93 110 175 105 245 62 95 123 ...
#>  $ drat: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
#>  $ wt  : num  2.62 2.88 2.32 3.21 3.44 ...
#>  $ qsec: num  16.5 17 18.6 19.4 17 ...
#>  $ vs  : chr  "0" "0" "1" "1" ...
#>  $ am  : chr  "1" "1" "1" "0" ...
#>  $ gear: num  4 4 4 3 3 3 3 4 4 4 ...
#>  $ carb: num  4 4 1 1 2 1 4 2 2 4 ...

```