added currencyInput() (minimal working version)

R/dependencies.R

@@ -276,4 +276,12 @@ html_dependency_dollarinput <- function() {
   )
 }
 
-
+html_dependency_autonumeric <- function() {
+  htmlDependency(
+    name = "autonumeric",
+    version = "4.6.0",
+    package = "shinyWidgets",
+    src = c(href = "shinyWidgets/autonumeric", file = "assets/autonumeric"),
+    script = c("autoNumeric.min.js", "autonumeric-bindings.js")
+  )
+}

R/input-autonumeric.R

@@ -0,0 +1,29 @@
+
+currencyInput <- function(inputId, label, value, format = "euro", width = NULL) {
+  value <- shiny::restoreInput(inputId, value)
+  tags$div(
+    class = "form-group shiny-input-container",
+    style = if (!is.null(width)) paste0("width: ", validateCssUnit(width), ";"),
+    if (!is.null(label)) tags$label(`for` = inputId, label),
+    tags$input(
+      type = "text",
+      style = "text-align: center; font-size: 1.5rem;",
+      value = value,
+      id = inputId,
+      class = "form-control currency-input"
+    ),
+    tags$script(
+      type = "application/json",
+      `data-for` = inputId,
+      jsonlite::toJSON(
+        x = list(
+          format = format
+        ),
+        auto_unbox = TRUE,
+        json_verbatim = TRUE
+      )
+    ),
+    html_dependency_autonumeric()
+  )
+}
+

inst/assets/autonumeric/autonumeric-bindings.js

@@ -0,0 +1,49 @@
+
+var currencyInputBinding = new Shiny.InputBinding();
+$.extend(currencyInputBinding, {
+
+  find: function(scope) {
+    return $(scope).find(".currency-input");
+  },
+
+  initialize: function(el) {
+    var config = $(el)
+      .parent()
+      .find('script[data-for="' + el.id + '"]');
+    config = JSON.parse(config.html());
+    this[el.id] = new AutoNumeric(el, config.format);
+  },
+
+  getValue: function(el) {
+    console.log(this[el.id].getNumber());
+    return this[el.id].getNumber();
+  },
+
+  subscribe: function(el, callback) {
+    $(el).on("change", function(event) {
+      callback();
+    });
+  },
+
+  unsubscribe: function(el) {
+    $(el).off(".currencyInputBinding");
+  },
+
+  receiveMessage: function(el, data) {
+
+  },
+
+  getState: function(el) {
+
+  },
+
+  getRatePolicy: function() {
+    return {
+      policy: "debounce",
+      delay: 500
+    };
+  }
+});
+
+Shiny.inputBindings.register(currencyInputBinding, "shinyWidgets.currencyInput");
+