我直接从DT格式列文档中选择了这个示例
library(DT)
m = cbind(matrix(rnorm(60, 1e5, 1e6), 20), runif(20), rnorm(20, 100))
m[, 1:3] = round(m[, 1:3])
m[, 4:5] = round(m[, 4:5], 7)
colnames(m) = head(LETTERS, ncol(m))
head(m)
## A B C D E
## [1,] -460476 -967824 -594707 0.6478935 99.50897
## [2,] -130177 -117975 -107917 0.3198206 97.69083
## [3,] 1658708 -926004 -1165396 0.3077200 101.00574
## [4,] 170508 -628891 2268956 0.2197676 99.29080
## [5,] 229288 -525039 1307962 0.3694889 99.31199
## [6,] 1815065 -1586693 -1023109 0.9842192 101.02557
# format the columns A and C as currency, and D as percentages
datatable(m) %>% formatCurrency(c('A', 'C')) %>% formatPercentage('D', 2)
现在您可以在上方看到D的值以十进制表示,然后使用formatPercentage进行格式化。
现在,我想使用滑块输入,以便可以过滤表。但是,如果我分别使用最小最大值为20和40,它将无法工作,但是当我选择最小最大值为0.2和0.4时,它将起作用。所以我的滑块范围是0.1到0.9。
sliderInput("range_value",
label = h3("Put a range value"),
min = 20,
max = 40,post = " %",
value = c(20, 40)
)
如何将滑块范围显示为10%到100%,最小和最大值分别为20和40