Dispositivo di scorrimento lucido su scala logaritmica

Question

Sto utilizzando Shiny per creare una semplice applicazione Web con un slider che controlla quali valori di p devono essere visualizzati nell'output.

Come si può far agire il cursore su una scala logaritmica, piuttosto che lineare?

Al momento ho:

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

Grazie!

Answer 1

non ero sicuro di quello che si voleva, come l'uscita, ma quello che ho fatto è stato hanno i possibili valori di p siano [0, 0,00001, 0,0001, 0,001, 0,01]. Se vuoi qualcosa di diverso, spero che questa risposta sia un buon punto di partenza.

Fondamentalmente, per prima cosa ho creato un array che contiene i valori dei numeri (0, 0.0000.1, ...), quindi utilizzo la funzione di aggiornamento speciale dall'API del cursore per rendere questi valori conformi slider. È piuttosto semplice una volta capito come usare l'API del cursore. Inoltre, per qualche ragione l'esecuzione di questo all'interno di RStudio sembra strano, ma in un browser va bene. Inoltre, nota che ho un ritardo di 5 ms perché voglio assicurarmi che questo funzioni dopo che il cursore è stato inizializzato. Non è la soluzione più pulita, probabilmente c'è un modo migliore per farlo, ma funziona.

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) { 
    } 
)) 

Answer 2

Il motivo per cui la domanda non ha ottenuto più attenzione è che è difficile rispondere. Per fare ciò che vuole il richiedente, devi scrivere javascript e inserirlo nella pagina web. Di seguito è riportato il codice che ho adattato per formattare correttamente un cursore shiny come date. Non ho provato a modificarlo per logaritmico perché ho solo imparato abbastanza javascript per armeggiare con questo script, e poi prontamente cancellato dalla memoria per fare spazio a cose più importanti come il menu di birra stagionale al bar in fondo all'isolato.

Anyhoo:

output$selectUI <- 
     renderUI(
      list(sliderInput(inputId = "target", label = "Date", 
              min = 0, max = diff_months(targetEnd(),targetStart()) - 1, 
              value = diff_months(targetEnd(),targetStart()) - 1, 
              animate = animationOptions(loop = T)), 
        singleton(HTML(
       ' 
      <script type="text/javascript"> 
      $(document).ready(function() { 
      var monthNames = [ "Jan.", "Feb.", "Mar.", "Apr.", "May", "June", 
      "July", "Aug.", "Sept.", "Oct.", "Nov.", "Dec." ]; 
      var endDate = new Date(', 
       year(Sys.Date()),',', month(Sys.Date()) 
       ,', 1); 
      var slider = $("#dates").slider(); 
      var labels = slider.domNode.find(".jslider-label span"); 
      labels.eq(0).text("Jan., 1962"); 
      labels.eq(1).text([monthNames[endDate.getUTCMonth() +1], endDate.getUTCFullYear()].join(", ")); 
      // override the default "nice" function. 
      slider.nice = function(value) { 
alert("hi") 
       var ref_date = new Date(1962, 1, 1); 
       var slider_date = new Date(ref_date.setMonth(ref_date.getMonth() + value)); 
       return [monthNames[slider_date.getUTCMonth()], slider_date.getUTCFullYear()].join(", "); 
      } 

      $(slider).trigger("slidechange"); 
      }) 

    $(document).ready(function() { 
       var monthNames = [ "Jan.", "Feb.", "Mar.", "Apr.", "May", "June", 
        "July", "Aug.", "Sept.", "Oct.", "Nov.", "Dec." ]; 
     var slider = $("#target").slider(); 
      var labels = slider.domNode.find(".jslider-label span"); 
      labels.eq(0).text([monthNames[', month(targetStart()) +1, '],', year(targetStart()), '].join(", ")); 
      labels.eq(1).text([monthNames[', month(targetEnd()) + 1, '], ', year(targetEnd()), '].join(", ")); 


     // override the default "nice" function. 
     slider.nice = function(value) { 
alert("hi") 
     var ref_date = new Date(', year(targetStart()), ', ', month(targetStart()),',1); 
     // each slider step is 4 weeks, translating to 24 * 3600 * 1000 milliseconds 
     var slider_date = new Date(ref_date.setMonth(ref_date.getMonth() + value - 1)); 

     return [monthNames[slider_date.getUTCMonth()], 
       slider_date.getUTCFullYear()].join(", "); 
     } 

      $(slider).trigger("slidechange"); 
    }) 
    </script> 
      ') 
      ) 
     ) 
) 

Answer 3

Non ho lucido al momento con me, ho ampliato la gamma un po ', che cosa accadrà se si cerca qualcosa di simile:

sliderInput("pvalue", 
      "PValue:", 
      min = 1e-02, 
      max = 1e+02, 
      value = -10^seq(-2, 2) 
), 

tuo post è menzionato 1e -2, ho usato 1e-02, ho controllato come qui di seguito

> 1e-2==1e-02 
[1] TRUE 

Answer 4

Non sono sicuro questa discussione è ancora attivo, ma solo nel caso in cui volessi aggiungere un modo più generico di "logifying" un inputSlider utilizzando la funzione attrib Prettify ute di ionRangeSlider invece di sovrascrivere i valori con il vantaggio che è possibile definire il minimo, il massimo, il passo e il valore predefinito di inputSlider come al solito e quindi tutto ciò che accade sul lato Javascript è un cambiamento dei valori visualizzati (due opzioni presentato, uno per l'uscita numerica, uno per la notazione scientifica):

library(shiny) 

# logifySlider javascript function 
JS.logify <- 
" 
// function to logify a sliderInput 
function logifySlider (sliderId, sci = false) { 
    if (sci) { 
    // scientific style 
    $('#'+sliderId).data('ionRangeSlider').update({ 
     'prettify': function (num) { return ('10<sup>'+num+'</sup>'); } 
    }) 
    } else { 
    // regular number style 
    $('#'+sliderId).data('ionRangeSlider').update({ 
     'prettify': function (num) { return (Math.pow(10, num)); } 
    }) 
    } 
}" 

# call logifySlider for each relevant sliderInput 
JS.onload <- 
" 
// execute upon document loading 
$(document).ready(function() { 
    // wait a few ms to allow other scripts to execute 
    setTimeout(function() { 
    // include call for each slider 
    logifySlider('log_slider', sci = false) 
    logifySlider('log_slider2', sci = true) 
    }, 5)}) 
" 

ui <- fluidPage(
    tags$head(tags$script(HTML(JS.logify))), 
    tags$head(tags$script(HTML(JS.onload))), 

    sliderInput("log_slider", "Log Slider (numbers):", 
       min = -5, max = 3, value = -4, step = 1), 

    sliderInput("log_slider2", "Log Slider (sci. notation):", 
       min = -5, max = 3, value = 1, step = 0.5), 

    br(), 

    textOutput("readout1"), 
    textOutput("readout2") 
) 

server <- function(input, output, session) { 
    output$readout1 <- reactive({ 
    paste0("Selected value (numbers): ", input$log_slider, " = ", 10^input$log_slider) 
    }) 

    output$readout2 <- reactive({ 
    paste0("Selected value (sci. notation): ", input$log_slider2, " = ", 10^input$log_slider2) 
    }) 
} 

shinyApp(ui, server)