如何为所有类型的输入调整可变长度的currying函数或常规的currying函数？

Question

library(simstudy)
library(dplyr)

set.seed(1724)

# define data
def <- defData(varname = "category", formula = "0.2;0.3;0.5", dist = "categorical", id = "id")
def <- defData(def, varname = "value", dist = "nonrandom", formula = NA)

# generate data
df <- genData(3000, def) %>% as_tibble()

# add in values that conform to category rules
df[df$category == 1,]$value <- runif(nrow(df[df$category == 1,]), min = 0.1, max = 0.3)
df[df$category == 2,]$value <- runif(nrow(df[df$category == 2,]), min = 0.4, max = 0.7)
df[df$category == 3,]$value <- runif(nrow(df[df$category == 3,]), min = 0.7, max = 0.9)

# A tibble: 3,000 x 3
      id category value
   <int>    <int> <dbl>
 1     1        3 0.769
 2     2        2 0.691
 3     3        3 0.827
 4     4        3 0.729
 5     5        2 0.474
 6     6        3 0.818
 7     7        2 0.635
 8     8        2 0.552
 9     9        3 0.794
10    10        3 0.792
# ... with 2,990 more rows

如何在所有这些情况下完成最重要的“ currying”功能？对于这些函数调用中的任何一种，“ Currying”函数必须返回正确的答案。