Question

我尝试使用额外的闪亮和dygraph向R应用添加下载按钮。

我尝试构建它就像在这个dygraphs额外出现的例子中一样：https://github.com/joh024/dygraph-extra/tree/master/shiny-example

我的问题是应用程序显示下载按钮，当我点击它时，URL更改为URL /＃，如dygraph-extra.js附带的R脚本中所指定，但不会发生下载。

我已经更新了所有套餐，但它仍然无效。

这是ui代码

tabItem(tabName = "bodenwasserchemie_plot",
sidebarPanel(width=3,
                h4(em("Bitte wählen Sie aus!"), style= "color:orange"),
                selectInput('bfi_80_bowa', h5('BFI:'), as.character(BFI_bodenwasser$bfi_80_name),selected ='Kitzbuehel'),
                selectInput('plot_bowa', h5('Plot Nummer:'), as.character(PLOT_NR_bodenwasser$plot_nr),selected ='701'),
                selectInput('tiefe_bowa',h5('Tiefe:'), as.character(TIEFE$tiefe),selected ='15'),
                selectInput('par_bowa',h5('Parameter:'), as.character(PAR_BOWA$par),selected = 'ph')
            ),
            tags$head(
            tags$script(src = "dygraph-extra.js")
            ),
            box(title= "Bodenwasserchemie", status="primary", solidHeader = TRUE,
            dyDownload("dyout", "Download Plot", asbutton = TRUE),
            dygraphOutput("dyout", height=600)
            )
        )

和服务器代码

bowa_zeitreihe <- reactive({
    qry<-paste0("SELECT probenahme_datum, ", input$par_bowa, " AS wert FROM gea.cl_bfi_80 RIGHT JOIN gea.bodenwasserchemie ON gea.cl_bfi_80.bfi_80_code=gea.bodenwasserchemie.bfi_80 WHERE bfi_80_name= '",input$bfi_80_bowa,"' AND plot_nr=",input$plot_bowa," AND tiefe=", input$tiefe_bowa," ORDER BY probenahme_datum")
    bowa_z <- dbGetQuery(con, qry)
    rownames(bowa_z)<-bowa_z$probenahme_datum
    daten<-as.xts(bowa_z)
    daten
    })
  output$dyout = renderDygraph({dygraph(bowa_zeitreihe(),xlab="Datum",ylab=input$par_bowa) %>%
    dyRangeSelector(dateWindow = c("2016-01-01", "2017-01-01")) %>%
    dyOptions(drawPoints = TRUE, pointSize = 2) %>% 
    dySeries("wert", label = input$par_bowa) %>%
    dyCallbacks(drawCallback = dyRegister())
    })

似乎有些人已经解决了包装webshots的类似问题，但我宁愿继续使用dygraphs。我认为这可能只是我失踪的一件小事。

Answer 1

此问题现已解决。我们必须手动输入源文件，并且路径中存在拼写错误，这就是为什么R不能使用dygraphs-extra而同时没有发出错误的原因。上面写的代码完全正常。

dygraphs额外下载无法正常工作

1 个答案: