Question

我非常喜欢R的dygraphs的缩放功能，并试图将它与闪亮的简单情节应用程序结合起来。我可以加载和绘制数据，但是当我通过滑块输入更改rollmean因子或在放大部分绘图时使用鼠标单击添加事件时，将使用最大日期范围重新渲染绘图。

为了解决这个问题，我定义了一个新的反应函数，用于在鼠标单击时存储当前视图。虽然这几乎符合我的要求，但仍有一些问题

（i）只有在鼠标单击后（在图中）才有效，因此缩放和更改rollmean仍会恢复原始比例，直到鼠标单击鼠标

（ii）平移不再有效（顺利）

（iii）当加载新数据文件时，它不会调整日期范围以适应新文件。

MWE：

# ui.R

library(dygraphs)

shinyUI(fluidPage(

  titlePanel("Simple plot"),

  sidebarLayout(
    sidebarPanel(
      helpText("Data files must be 2 column format"),
      fileInput("inputfile",label = "Load File"),
      sliderInput("rollmean", label = "Running Average", 
                   value = 1, min = 1, max = 25, step = 1),
      textOutput("text1")
    ),
    mainPanel(
      dygraphOutput("dygraph")
    )
  )
))

和

# server.R

library(dygraphs)

shinyServer(function(input, output) {


  spectrum <- reactive({
    inFile <- input$inputfile
    read.table(inFile$datapath)
  })

  currentview <- reactive({
    if(is.null(input$dygraph_click$x))
      {return(NULL)}
    else
    {
      input$dygraph_date_window
    }
  })

  cut <- reactive({
    if (is.null(input$dygraph_click$x))
      return(NULL)
    cut <- input$dygraph_click$x
  })

  output$dygraph <- renderDygraph({
    if (is.null(input$inputfile)){
      return(NULL)
    }
    else{
      dygraph(spectrum(), main = input$inputfile$name) %>%
      dyOptions(drawXAxis = TRUE, drawYAxis = FALSE, drawGrid = FALSE,animatedZooms = FALSE) %>%
      dyRangeSelector(dateWindow = currentview(), fillColor = "") %>% 
      dyRoller(rollPeriod = input$rollmean, showRoller = FALSE) %>%
      dyEvent(cut())}
  })

  output$text1 <- renderText({ 
    paste("You have selected", input$dygraph_click$x)
  })

})

Here是一个简单的数据文件。

> sessionInfo()
R version 3.3.3 (2017-03-06)
Platform: x86_64-apple-darwin13.4.0 (64-bit)
Running under: OS X Yosemite 10.10.5

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods  
[7] base     

other attached packages:
[1] dygraphs_1.1.1.4 shiny_1.0.3     

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.7     lattice_0.20-34 zoo_1.8-0       digest_0.6.10  
 [5] mime_0.5        grid_3.3.3      R6_2.2.1        xtable_1.8-2   
 [9] jsonlite_1.4    magrittr_1.5    xts_0.9-7       tools_3.3.3    
[13] htmlwidgets_0.8 httpuv_1.3.3    yaml_2.1.13     htmltools_0.3.5

Answer 1

通过使用retainDateWindow的{{1}}选项和加载新数据时设置为FALSE的布尔参数，我找到了一个解决方案。我还必须将包含dyRangeSelector关键字的行移至dyRangeSelector的选项块的末尾，以获得所需的行为。

new server.R file：

dygraphs

更新rollmean

1 个答案: