rhandsontable in shiny: change separator of thousands and decimals - r

Question

I would like to know how to change the thousand separator to a point and the decimal separator to a comma when using the rhandsontable function.
Here's a small, reproducible example.
library(tidyverse)
library(shiny)
library(shinydashboard)
library(rhandsontable)
data_test <- iris
ui <- dashboardPage(
skin = "black",
dashboardHeader(
title = "Test",
titleWidth = 100
),
dashboardSidebar(collapsed = TRUE),
dashboardBody(
fluidRow(column(
width = 3,
selectInput(
inputId = "specie",
label = "Specie",
choices = unique(data_test$Species),
multiple = FALSE
)),
rHandsontableOutput("rTable")))
)
server <- function(input, output, session) {
rv <- reactiveValues(table1 = NULL)
observeEvent(input$specie,{
data <- data_test %>%
filter(Species == input$specie) %>%
mutate(Sepal.Length2 = 0,
Sepal.Width2 = 0,
Petal.Length2 = 0,
Petal.Width2 = 0,
amount = 50,
percentage = 100) %>%
select(1:4,6:11)
rv$table1<- data})
observe({
if (!is.null(input$rTable)){
mytable <- as.data.frame(hot_to_r(input$rTable))
mytable[,7] <- mytable[,5]*100
mytable[,8] <- mytable[,6]*100
numberofrows <- nrow(mytable)
rv$table1 <- mytable}
})
output$rTable <- renderRHandsontable({
rhandsontable(rv$table1) %>%
hot_col("Sepal.Length", format = "0.0,0") %>%
hot_col("Sepal.Width", format = "0.0,0") %>%
hot_col("Petal.Length", format = "0.0,0") %>%
hot_col("Petal.Width", format = "0.0,0") %>%
hot_col("Sepal.Length2", format = "0.0,0") %>%
hot_col("Sepal.Width2", format = "0.0,0") %>%
hot_col("Petal.Length2", format = "0.0,0") %>%
hot_col("Petal.Width2", format = "0.0,0") %>%
hot_col("amount", format = "$0.0,0") %>%
hot_col("percentage", format = "0,0") %>%
hot_cols(colWidths = 130)
})
}
shinyApp(ui = ui, server=server)
I tried the hot_col functions as seen in the example but this doesn't solve my problem, I also tried other functions like prettyNum, format, formatC, etc but I couldn't solve it either.
Any help is much appreciated.

Answer 1

I would use the d3.format library, as follows:
library(rhandsontable)
library(shiny)
mydata <- as.data.frame(
matrix(runif(40, 0, 100000), nrow = 10, ncol = 4)
)
ui <- fluidPage(
tags$head(
tags$script(src = "https://cdn.jsdelivr.net/npm/d3-format#3")
),
rHandsontableOutput("mytable")
)
server <- function(input, output) {
output$mytable <- renderRHandsontable({
rhandsontable(mydata,rowHeaderWidth = 100)%>%
hot_cols(
renderer = 'function(instance, td, row, col, prop, value, cellProperties) {
Handsontable.renderers.NumericRenderer.apply(this, arguments);
var locale = d3.formatLocale({
decimal: ",",
thousands: ".",
grouping: [3]
});
var fformat = locale.format(",");
td.innerHTML = fformat(value);
}')
})
}
shinyApp(ui,server)