我有一个Shiny应用程序,根据所选选项(列)动态重新计算数据集。重新计算的结果用于向用户显示另一组选项以及创建绘图。
目前,我正在使用observe()
来阅读用户选择,重新计算数据集和更新UI。但是,在显示输出(绘图)时,我必须再次重新计算,因为observe()
不会返回任何内容。
有没有办法如何只重新计算一次数据集?
我创建了简单的example来说明这一点:
library(devtools)
library(shiny)
runGist('7333949')
在server.R
中,我想在AggregateData
中调用自定义函数observe()
,而renderUI()
不调用。
应用代码:
server.R:
# shiny server side code for each call
shinyServer(function(input, output, session){
#update variable and group based on dataset
observe({
require(sqldf)
if (is.null(input$source_columns)) {
obj <-TestData
} else {
obj<-AggregateData(TestData,Columns=input$source_columns)
}
var.opts<-namel(colnames(obj))
var.opts.original.slicers <- namel(colnames(TestData))
measures <- c('m1','m2','m3','m4','m5')
var.opts.slicers <- var.opts[!(var.opts %in% c(measures,'x'))]
var.opts.original.slicers <- var.opts.original.slicers[!(var.opts.original.slicers %in% c(measures,'x'))]
var.opts.measures <- var.opts[var.opts %in% measures]
updateSelectInput(session, "source_columns", choices = var.opts.original.slicers, selected=var.opts.slicers)
updateSelectInput(session, "xaxis", choices = var.opts.slicers,selected="x")
updateSelectInput(session, "yaxis", choices = var.opts.measures,selected="m1")
})
output$plot <- renderUI({
plotOutput("p")
})
#plotting function using ggplot2
output$p <- renderPlot({
require(ggplot2)
obj <- AggregateData(TestData,Columns=input$source_columns)
p <- PlotData(obj,x=input$xaxis, y=input$yaxis)
print(p)
})
})
ui.R:
shinyUI(pageWithSidebar(
# title
headerPanel("Analysis setup"),
#input
sidebarPanel
(
selectInput("source_columns","Source Columns:", "Loading...",multiple=TRUE),
selectInput("xaxis","X Axis:", "Loading..."),
selectInput("yaxis","Y Axis:", "Loading...")
),
# output
mainPanel(
#h3('Vintage Analysis'),
uiOutput("plot") # depends on input
)
))
global.R:
#initialize
library(ggplot2)
TestData <- data.frame( a = rep(LETTERS[1:4],10),
b = rep(c('A','B'),20),
c = rep(LETTERS[1:5],each=8),
d = rep(c('A','B'),2,each=10),
m1 = rnorm(40),
m2 = rnorm(40),
m3 = rnorm(40),
m4 = rnorm(40),
m5 = rnorm(40),
x = rep(1:5,each=8)
)
#helper function (convert vector to named list)
namel<-function (vec){
tmp<-as.list(vec)
names(tmp)<-as.character(unlist(vec))
tmp
}
# Function to aggregate data based on selected columns (Source Columns)
AggregateData <- function(data,Columns=NA) {
require(sqldf)
if (all(is.na(Columns))) {
sql <- "select
sum(m1) as m1, sum(m2) as m2, sum(m3) as m3, sum(m4) as m4, sum(m5) as m5, x
from TestData group by x"
sqldf(sql)
} else {
sql <- paste("select ", paste(Columns, collapse =','), ",
sum(m1) as m1, sum(m2) as m2, sum(m3) as m3, sum(m4) as m4, sum(m5) as m5, x
from TestData group by ",paste(Columns, collapse =','),", x")
sqldf(sql)
}
}
# Function to plot data
PlotData <- function(data,x="x",y="m1") {
ggplot(data, aes_string(x=x, y=y)) + geom_line()
}
答案 0 :(得分:7)
使用reactiveValues()
:
shinyServer(function(input, output, session){
#update variable and group based on dataset
values <- reactiveValues()
observe({
require(sqldf)
if (is.null(input$source_columns)) {
values$obj <-TestData
} else {
values$obj<-AggregateData(TestData,Columns=input$source_columns)
}
...
})
output$plot <- renderUI({
plotOutput("p")
})
#plotting function using ggplot2
output$p <- renderPlot({
require(ggplot2)
obj <- values$obj
p <- PlotData(obj,x=input$xaxis, y=input$yaxis)
print(p)
})
})
答案 1 :(得分:0)
observe
不会返回任何内容,但它仍可以创建一些内容。我通过使用obj
运算符将<<-
分配给全局环境来解决了这个问题。在我现在的server.R
中:
obj<<-AggregateData(TestData,Columns=input$source_columns)
然后,在UI.r
我可以直接在ggplot中调用obj
,而无需再次调用AggregateData
。