Interactive Document 中闪亮的 renderPlot 打开一个新的浏览器 Window with dygraph
Shiny renderPlot within Interactive Document opens a new Browser Window with dygraph
我有以下 RMarkdown .Rmd
文档。当你运行以下时,sliderInput
为"reactive"并适当调整平滑;然而,情节不断在新的独立浏览器中生成 window 而不是在文档本身中生成。
知道为什么会发生这种情况或如何解决此问题吗?
---
title: "Untitled"
output: html_document
runtime: shiny
---
```{r echo=FALSE}
library(dygraphs)
sliderInput("span", label = "Select Span",
min=0.05, max=1, value=0.5, step=0.05)
renderPlot({
plx <- predict(loess(ldeaths ~ time(ldeaths), span=input$span), se =T)
fit <- plx$fit
lower <- plx$fit - qt(0.975, plx$df) * plx$se
upper <- plx$fit + qt(0.975, plx$df) * plx$se
all <- cbind(ldeaths, fit, lower, upper)
dygraph(all, main="Title") %>%
dySeries(c("lower", "fit", "upper"), label="Deaths")
})
```
好吧,我是个白痴,答案是 dygraphs
包中已经有一个 renderDygraph()
函数!
我将保持开放状态,这样也许有人可以向我解释使它正常工作的幕后发生的事情以及为什么不能直接使用 renderPlot()
。如果我从源代码中学习,我会尽量记住更新这个答案。
我有以下 RMarkdown .Rmd
文档。当你运行以下时,sliderInput
为"reactive"并适当调整平滑;然而,情节不断在新的独立浏览器中生成 window 而不是在文档本身中生成。
知道为什么会发生这种情况或如何解决此问题吗?
---
title: "Untitled"
output: html_document
runtime: shiny
---
```{r echo=FALSE}
library(dygraphs)
sliderInput("span", label = "Select Span",
min=0.05, max=1, value=0.5, step=0.05)
renderPlot({
plx <- predict(loess(ldeaths ~ time(ldeaths), span=input$span), se =T)
fit <- plx$fit
lower <- plx$fit - qt(0.975, plx$df) * plx$se
upper <- plx$fit + qt(0.975, plx$df) * plx$se
all <- cbind(ldeaths, fit, lower, upper)
dygraph(all, main="Title") %>%
dySeries(c("lower", "fit", "upper"), label="Deaths")
})
```
好吧,我是个白痴,答案是 dygraphs
包中已经有一个 renderDygraph()
函数!
我将保持开放状态,这样也许有人可以向我解释使它正常工作的幕后发生的事情以及为什么不能直接使用 renderPlot()
。如果我从源代码中学习,我会尽量记住更新这个答案。