From bf91eefae77d5021a0f281afe777044616ded7d2 Mon Sep 17 00:00:00 2001 From: Kun Ren Date: Wed, 9 Nov 2022 11:07:54 +0800 Subject: [PATCH] Use force=TRUE when viewing data.frame and list --- R/session/vsc.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/session/vsc.R b/R/session/vsc.R index c4a3fccb0..6258c304b 100644 --- a/R/session/vsc.R +++ b/R/session/vsc.R @@ -466,13 +466,13 @@ if (show_view) { x <- as_truncated_data(x) data <- dataview_table(x) file <- tempfile(tmpdir = tempdir, fileext = ".json") - jsonlite::write_json(data, file, na = "string", null = "null", auto_unbox = TRUE) + jsonlite::write_json(data, file, na = "string", null = "null", auto_unbox = TRUE, force = TRUE) request("dataview", source = "table", type = "json", title = title, file = file, viewer = viewer, uuid = uuid) } else if (is.list(x)) { tryCatch({ file <- tempfile(tmpdir = tempdir, fileext = ".json") - jsonlite::write_json(x, file, na = "string", null = "null", auto_unbox = TRUE) + jsonlite::write_json(x, file, na = "string", null = "null", auto_unbox = TRUE, force = TRUE) request("dataview", source = "list", type = "json", title = title, file = file, viewer = viewer, uuid = uuid) }, error = function(e) {