R /发光：仅在闪亮的应用程序中需要时才渲染图的元素

Question

我目前正在编写一个闪亮的应用程序。 我想减少绘图的渲染时间（因为初始化绘图需要很长时间）。 假设我要动态绘制图，例如

plot(x=1:10)

（ plot将不是我将在闪亮的应用程序中使用的功能。）

现在，我想将绘图分为以下几个部分：

plot(x=NA, y=NA, xlim=c(0,10), ylim=c(0,10))
points(x=1:10)

其中plot(x=NA, y=NA, xlim=c(0,10), ylim=c(0,10))将在闪亮的应用程序中花费很长时间进行渲染并points(x=1:10)将花费很短的时间。 我需要一个仅在首次加载应用程序时才会执行plot(x=NA, y=NA, xlim=c(0,10), ylim=c(0,10))自底向上构建（将点，线等添加到绘图中）。 有没有人知道如何将其写入应用程序？ 这里的问题是，我将在闪亮的应用程序中使用的绘图功能不会返回任何内容。 绘图功能基于基本graphics系统（不在ggplot2 ，不在lattice ）。

这是此类应用程序的最小工作示例：

library(shiny)
shinyAPP <- function() {
ui <- fluidPage(
    sidebarPanel(),
    mainPanel(
        plotOutput("plotPoints"))
)
server <- function(input, output, session) {
    output$plotPoints <- renderPlot(
        plot(x=1:10)
        ## this needs to be replaced with:
        ##plot(x=NA, y=NA, xlim=c(0,10), ylim=c(0,10))
        ##points(x=1:10)

    )
}

app <- list(ui = ui, server = server)
runApp(app)
}

shinyAPP()

非常感谢你！

Answer 1

因此，也许像下面这样尝试grDevices ：

server.R：

library("shiny")
library("grDevices")

data(iris)
plot(x=NA, y=NA, xlim=c(0,10), ylim=c(0,10))
p <- recordPlot()

function(input, output, session) {

    output$plotPoints <- renderPlot({
        replayPlot(p)
        points(1:input$ile)
    })
}

和ui.R：

library(shiny)

fluidPage(
        sidebarPanel(
            sliderInput("ile", min=1, max=10, label="", value=5)
        ),
        mainPanel(
            plotOutput("plotPoints"))
    )

Answer 2

您说过不会使用plot ，但是要使用的内容很重要。 例如，对于ggplot你可以像这里（见reactive ）：

ui.R：

library(shiny)

fluidPage(
        sidebarPanel(
            sliderInput("ile", min=1, max=10, label="", value=5)
        ),
        mainPanel(
            plotOutput("plotPoints"))
    )

服务器

library("shiny")
library("ggplot2")

data(iris)

function(input, output, session) {

    wyk <- reactive({ggplot(iris)})

    output$plotPoints <- renderPlot(

        wyk() + geom_point(aes(x=Sepal.Length, y=Sepal.Width), col=input$ile)

    )
}

Answer 3

如果我理解您的问题，这是一个应该起作用的小技巧。 但是，这不是R't，只是一个快速修复。

测试/ui.R：

fluidPage(
    sidebarPanel(
        actionButton("trickButton","Useless"),
        sliderInput("something", min=1, max=5, label="Useful", value=5)
    ),
    mainPanel(
        plotOutput("plotPoints")
    )
)

测试/服务器R：

data(iris)
myData <<- NULL
superHeavyLoad <- function() {
    print("That is super heavy !")
    myData <<- iris
}

function(input, output, session) {
    observe({
        if (!input$trickButton)
            superHeavyLoad()
    })
    output$plotPoints <- renderPlot(
        plot(myData[,1:as.numeric(input$something)])
    )
}

现在，在您的R控制台上：

require(shiny)
runApp("test")
Listening on http://127.0.0.1:7175
[1] "That is super heavy !"

而且，无论您做什么，都将永远不会再更新超重零件。 现在，据我了解，您所做的就是将处理分为重一次性函数和反应性事情。 这是一种（不是很漂亮）的方式；-)

关于它的工作原理：全部在我们添加的按钮中。 每当我们与按钮交互时，以及在服务器启动时，都会调用observe函数。 if(!input$trickButton)指出我们只是在服务器启动时运行代码（因为按钮没有值）。 您还可以使用renderUI机制隐藏此无用的按钮。