small changes

Author: Fred Wu

R/session/init.R

@@ -48,6 +48,7 @@ init_last <- function() {
     # cleanup previous version
     removeTaskCallback("vscode-R")
     options(vscodeR = NULL)
+    options(datatable.quiet = TRUE)
     .vsc.name <- "tools:vscode"
     if (.vsc.name %in% search()) {
         detach(.vsc.name, character.only = TRUE)

R/session/vsc.R

@@ -784,7 +784,7 @@ if (show_view) {
             x <- as_truncated_data(x)
             if (exists(".dataview_first_map", envir = .GlobalEnv, inherits = FALSE)) {
                 fm_env        <- get(".dataview_first_map", envir = .GlobalEnv)
-                fm_env[[title]] <- NULL
+                fm_env[[expr_text]] <- NULL
             }
             meta <- dataview_table(x, start = 0, end = 0, metadata_only = TRUE, force = TRUE)
             file <- tempfile(tmpdir = tempdir, fileext = ".json")

src/session.ts

@@ -804,6 +804,7 @@ export async function getTableHtml(webview: Webview, file: string): Promise<stri
               gridApi.onFilterChanged();            
 
               gridApi.resetColumnState();      
+              gridApi.autoSizeAllColumns(false);
 
               gridApi.purgeInfiniteCache();           
               gridApi.ensureIndexVisible(0, 'top');