ЭА
sprintf("How can this be solved in R %s",
switch(1 + trunc(runif(1, 0, 6)),
"at all?",
"in a quick-and-dirty way?",
"in Hadley-Wickham-style?",
"without a loop?",
"without nested loops?",
"in a way somebody can understand?"))
Size: a a a
ЭА
AC
.
AC
IS
AC
IS
AC
IS
IS
AC
IS
.
.
АК
AC
distractors <- data.table(a = rnorm(16), b = rnorm(16), c = rnorm(16))
distractors[, col_string := do.call(paste,
c(lapply(names(distractors), function(x) paste(x, get(x), sep=":")),
sep="_"))]
distractors[, md5 := digest(col_string), by = col_string]
АК
distractors <- data.table(a = rnorm(16), b = rnorm(16), c = rnorm(16))
distractors[, col_string := do.call(paste,
c(lapply(names(distractors), function(x) paste(x, get(x), sep=":")),
sep="_"))]
distractors[, md5 := digest(col_string), by = col_string]
openssl::md5
векторизован.AC
openssl::md5
векторизован.АК
distractors <- data.table(a = rnorm(16), b = rnorm(16), c = rnorm(16))
distractors[, col_string := do.call(paste,
c(lapply(names(distractors), function(x) paste(x, get(x), sep=":")),
sep="_"))]
distractors[, md5 := digest(col_string), by = col_string]
openssl::md5(jsonlite::toJSON(df, dataframe = "rows", collapse = FALSE))
АК
openssl::md5(jsonlite::toJSON(df, dataframe = "rows", collapse = FALSE))
setcolorder
с сортировкой.