Estoy desarrollando una aplicación Shiny con una pestaña de salida, que contiene una tabla rhandson. Los números en la tabla práctica no deben tener decimales y contener un separador de marca grande en forma de punto: "10.0000" = diez mil.

Sin embargo, tengo algunas dificultades para lograr el formato correcto. En mi expresión regular, puede ver que estoy usando un renderizador personalizado para lograr el formato condicional. Cuando excluya el renderizador personalizado y ejecute el código, trabajaré como se esperaba. Si ejecuta como se indica, los ceros al final de los números se recortarán.

Tal vez hay un enfoque más inteligente:

 library(tidyverse) fc_output_tbl <- tibble(`Product ID` = c(rep("A1",3),rep("A1000",3)), Value = c(6631.98,6770.76,5940.21,2073.45,1896.12,2163), Date = as.Date(rep(c("2015-07-01","2015-08-01","2015-09-01"),2)), `Last year` = c(c(5210,4910,6890,1590,1730,2440)) ) fc_output_tbl <- fc_output_tbl %>% mutate(`Growth ABS` = Value-abs(`Last year`), `Growth PCT` = (Value-abs(`Last year`))/Value) %>% relocate(`Last year`, .after = Value) %>% relocate(`Growth ABS`, .after = `Last year`) %>% relocate(`Growth PCT`, .after = `Growth ABS`) %>% rename(FC = Value) %>% mutate_at(vars(FC,`Growth ABS` ), funs(format(round(.,0), nsmall=0, big.mark=".", decimal.mark=" ")) ) %>% mutate_at(vars(`Last year` ), funs(format(as.numeric(`Last year`),trim = FALSE, nsmall=0, big.mark=".", decimal.mark=" ")) ) # tbl library(rhandsontable) cell_highlight <- 3:4 rhandsontable(fc_output_tbl, cell_highlight = cell_highlight) %>% hot_cols(renderer = " function(instance, td, row, col, prop, value, cellProperties) { Handsontable.renderers.NumericRenderer.apply(this, arguments); if (instance.params) { hcols = instance.params.cell_highlight; hcols = hcols instanceof Array ? hcols : [hcols]; } if (instance.params && hcols.includes(col) && value < 0) { td.style.background = 'pink'; } else if (instance.params && hcols.includes(col) && value > 0) { td.style.background = 'lightgreen'; } }") %>% hot_col("Growth PCT", format = "0.0%")