From 4cbc4a538c3a0f2aad808929627e941de254e440 Mon Sep 17 00:00:00 2001
From: vedhav <vedhaviyash4@gmail.com>
Date: Mon, 16 Oct 2023 19:19:50 +0530
Subject: [PATCH] chore: replace the qenv function with ggplot2 equivalent

---
 R/tm_variable_browser.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/tm_variable_browser.R b/R/tm_variable_browser.R
index 24eea5744..b0a41a5ef 100644
--- a/R/tm_variable_browser.R
+++ b/R/tm_variable_browser.R
@@ -485,9 +485,10 @@ srv_variable_browser <- function(id,
     )
 
     output$variable_summary_table <- DT::renderDataTable({
+      browser()
       var_summary_table(
         plotted_data()$data,
-        treat_numeric_as_factor(),
+        TRUE,
         input$variable_summary_table_rows,
         if (!is.null(input$remove_outliers) && input$remove_outliers) {
           req(input$outlier_definition_slider)
@@ -938,7 +939,7 @@ plot_var_summary <- function(var,
 
     if (numeric_as_factor) {
       var <- factor(var, levels = sort(unique(var)))
-      p <- qplot(var)
+      ggplot(NULL, aes(x = var)) + geom_histogram(stat = "count")
     } else {
       # remove outliers
       if (outlier_definition != 0) {