From be076f48cad6b40ca81ea58e9d0bb47917c012f4 Mon Sep 17 00:00:00 2001 From: mhtorp Date: Thu, 31 Mar 2022 21:50:01 +0200 Subject: [PATCH] Avoid converting logical vectors to character --- R/utils.R | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/R/utils.R b/R/utils.R index d12dc25..7f9ca2f 100644 --- a/R/utils.R +++ b/R/utils.R @@ -24,7 +24,13 @@ dataframeToD3 <- function(df) { row.names(df) <- NULL lapply(seq_len(nrow(df)), function(row) { row <- df[row, , drop = FALSE] - lapply(row[, !is.na(row), drop = FALSE], as.character) + lapply(row[, !is.na(row), drop = FALSE], function(x) { + if (!is.logical(x)) { + as.character(x) + } else { + x + } + }) }) }