github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-04-07 03:00:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

handle no-argument output calls gracefully

Browse Source
This commit is contained in:
Jonathan McPherson
2014-03-20 15:46:25 -07:00
parent c732122966
commit 795eeee809
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
R/shiny.R
View File

@@ -602,8 +602,14 @@ ShinySession <- setRefClass(
#' @S3method $<- shinyoutput
`$<-.shinyoutput` <- function(x, name, value) {
label <- deparse(substitute(value))
attr(label, "srcref") <- srcrefFromShinyCall(substitute(value)[[2]])
attr(label, "srcfile") <- srcFileOfRef(attr(substitute(value)[[2]], "srcref")[[1]])
if (length(substitute(value)) > 1) {
# value is an object consisting of a call and its arguments. Here we want
# to find the source references for the first argument (if there are
# arguments), which generally corresponds to the reactive expression--
# e.g. in renderTable({ x }), { x } is the expression to trace.
attr(label, "srcref") <- srcrefFromShinyCall(substitute(value)[[2]])
attr(label, "srcfile") <- srcFileOfRef(attr(substitute(value)[[2]], "srcref")[[1]])
}
.subset2(x, 'impl')$defineOutput(name, value, label)
return(invisible(x))
}