r - 对数刻度上的 Shiny slider

Question

我正在使用 Shiny 构建一个带有 slider 的简单 Web 应用程序。控制应该在输出中显示哪些 p 值。

如何使 slider 作用于对数而不是线性比例？

目前我有:

sliderInput("pvalue",
            "PValue:",
            min = 0,
            max = 1e-2,
            value = c(0, 1e-2)
),

谢谢!

Answer 1

我不确定你想要什么作为输出，但我所做的是让可能的 p 值为 [0, 0.00001, 0.0001, 0.001, 0.01]。如果您想要一些不同的东西，希望这个答案是一个足够好的起点。

基本上，首先我创建了一个包含数字值(0、0.0000.1、...)的数组，然后我只使用 slider API 中的特殊更新函数来使这些值粘在 slider 上。一旦您弄清楚如何使用 slider 的 API，这将非常简单。此外，由于某种原因，在 RStudio 中运行它看起来很奇怪，但在浏览器中它很好。另外，请注意我有 5 毫秒的延迟，因为我想确保它在 slider 初始化后运行。不是最干净的解决方案，可能有更好的方法来做到这一点，但它确实有效。

library(shiny)

JScode <-
  "$(function() {
    setTimeout(function(){
      var vals = [0];
      var powStart = 5;
      var powStop = 2;
      for (i = powStart; i >= powStop; i--) {
        var val = Math.pow(10, -i);
        val = parseFloat(val.toFixed(8));
        vals.push(val);
      }
      $('#pvalue').data('ionRangeSlider').update({'values':vals})
    }, 5)})"

runApp(shinyApp(
  ui = fluidPage(
    tags$head(tags$script(HTML(JScode))),

    sliderInput("pvalue",
                "PValue:",
                min = 0,
                max = 1e-2,
                value = c(0, 1e-2)
    )
  ),
  server = function(input, output, session) {
  }
))