Potential failure in make_instrument_auto

[TIngchangW]

The part:
allMissing <- apply(instrument, 1, function(x) {
all(is.na(x) | x == "")
})
caused an error on my PC: C stack usage 15923856 is too close to the limit.

It's odd as my 'instrument' is a 1750 * 10 tibble.
Solved the issue by avoiding apply():

allMissing = rep(FALSE, nrow(instrument))
for (i in 1:nrow(instrument)) {
x = instrument[i,]
allMissing[i] = all(is.na(x) | x == "")
}

Might help :)

[RaymondBalise]

Thanks! We will check it. On Oct 4, 2023, at 10:19 PM, TIngchangW ***@***.***> wrote:  CAUTION: This email originated from outside the organization. DO NOT CLICK ON LINKS or OPEN ATTACHMENTS unless you know and trust the sender. The part: allMissing <- apply(instrument, 1, function(x) { all(is.na(x) | x == "") }) caused an error on my PC: C stack usage 15923856 is too close to the limit. It's odd as my 'instrument' is a 1750 * 10 tibble. Solved the issue by avoiding apply(): allMissing = rep(FALSE, nrow(instrument)) for (i in 1:nrow(instrument)) { x = instrument[i,] allMissing[i] = all(is.na(x) | x == "") } Might help :) — Reply to this email directly, view it on GitHub<https://urldefense.com/v3/__https://github.com/RaymondBalise/tidyREDCap/issues/68__;!!KVu0SnhVq1hAFvslES2Y!IHqLXeWvn06zPR_ScuGoYQXYaz4NjZfZ6btWg4PAPuAmFLkwloN0ReW6EfwwsEjZnOHStqC1cMXyoOKzCOCDa6E$>, or unsubscribe<https://urldefense.com/v3/__https://github.com/notifications/unsubscribe-auth/AEKOXOVPOAYKRDFGRDOD2WTX5YKKBAVCNFSM6AAAAAA5TQG5DCVHI2DSMVQWIX3LMV43ASLTON2WKOZRHEZDOMRWGMYTIOI__;!!KVu0SnhVq1hAFvslES2Y!IHqLXeWvn06zPR_ScuGoYQXYaz4NjZfZ6btWg4PAPuAmFLkwloN0ReW6EfwwsEjZnOHStqC1cMXyoOKzdLmH7aY$>. You are receiving this because you are subscribed to this thread.Message ID: ***@***.***>