r闪亮的滑块输入轮

Question

我有一个R闪亮的滑块输入问题。 “圆形特征”不起作用，您可以在in this picture中看到。我做错什么了吗 ？

sliderInput("Er", "Choose expected return (in percent)", 
       min = min, max = max, value = min , round = -1, 
       sep = "" , post = "%", ticks = FALSE 
     ) 

Answer 1

您必须指定一个step为round ING工作：

library(shiny) 
min_Er <- 20.31 
max_Er <- 23.59 
shinyApp(ui = fluidPage(sliderInput("Er1", "Rounding doesn't work", 
            round = -2, step = NULL, 
            min = min_Er, 
            max = max_Er, 
            value = min_Er, 
            sep = "" , post = "%", ticks = FALSE), 

         sliderInput("Er2", "Rounding works", 
            round = -2, step = 0.01, 
            min = min_Er, 
            max = max_Er, 
            value = min_Er, 
            sep = "" , post = "%", ticks = FALSE) 
), server=function(input, output, session){ 
    observe(print(input$Er1)) 
    observe(print(input$Er2)) 
}) 

否则，由@Ryan莫顿评论，如果您使用整数的min和max，round ing即使step = NULL：

library(shiny) 
min_Er <- 20.31 
max_Er <- 23.59 
shinyApp(ui = fluidPage(sliderInput("Er1", "Rounding doesn't work", 
            round = TRUE, 
            min = min_Er, 
            max = max_Er, 
            value = min_Er, 
            sep = "" , post = "%", ticks = FALSE), 

         sliderInput("Er2", "Rounding works", 
            round = TRUE, 
            min = floor(min_Er), 
            max = ceiling(max_Er), 
            value = min_Er, 
            sep = "" , post = "%", ticks = FALSE) 
), server=function(input, output, session){ 
    observe(print(input$Er1)) 
    observe(print(input$Er2)) 
})