From 68e9e36b265394bc9faa4aeda694b646e92c1e4e Mon Sep 17 00:00:00 2001
From: pvictor <perrier.victor@gmail.com>
Date: Mon, 12 Aug 2024 09:42:12 +0200
Subject: [PATCH] disable usageStatistics

---
 DESCRIPTION  | 2 +-
 NEWS.md      | 8 ++++++++
 R/chart.R    | 2 ++
 R/datagrid.R | 3 ++-
 4 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index ad0657fe..535d6ed8 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: toastui
 Title: Interactive Tables, Calendars and Charts for the Web
-Version: 0.3.3
+Version: 0.3.3.9000
 Authors@R: c(
   person("Victor", "Perrier", email = "victor.perrier@dreamrs.fr", role = c("aut", "cre", "cph")),
   person("Fanny", "Meyer", role = "aut"),
diff --git a/NEWS.md b/NEWS.md
index 2e317a1c..22423f42 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,9 +1,17 @@
+# toastui 0.3.4
+
+* Updated `cal_props()` example.
+* Turn off `usageStatistics` option for `datagrid()` and `chart()` (same as for `calendar()`).
+
+
+
 # toastui 0.3.3
 
 * New function `grid_col_checkbox()` to add checkboxes into a column.
 * `datagrid()`: new argument `guess_colwidths_opts` to customize colums widths with function `guess_colwidths_options()`.
 
 
+
 # toastui 0.3.2
 
 * Updated tui-grid to 4.21.22.
diff --git a/R/chart.R b/R/chart.R
index def05e17..928042a2 100644
--- a/R/chart.R
+++ b/R/chart.R
@@ -55,6 +55,8 @@ chart <- function(data = list(),
   if (is.null(options$yAxis$title) & !is.null(mapping$y)) {
     options$yAxis$title <- as_label(mapping$y)
   }
+  if (is.null(options$usageStatistics))
+    options$usageStatistics = getOption("toastuiUsageStatistics", default = FALSE)
   createWidget(
     name = "chart",
     x = list(
diff --git a/R/datagrid.R b/R/datagrid.R
index 30e77ac4..a147b686 100644
--- a/R/datagrid.R
+++ b/R/datagrid.R
@@ -81,7 +81,8 @@ datagrid <- function(data = list(),
       }
     ),
     bodyHeight = "fitToParent",
-    draggable = draggable
+    draggable = draggable,
+    usageStatistics = getOption("toastuiUsageStatistics", default = FALSE)
   )
 
   options <- modifyList(x = options, val = list(...), keep.null = FALSE)