Use force=TRUE when viewing data.frame and list (#1255)

Author: renkun-ken

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) {