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

local logging done with ". " for spacing

Browse Source
This commit is contained in:
Barret Schloerke
2018-04-17 09:46:54 -04:00
parent 6ef751422a
commit 3df89dd9a3
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/graph.R
View File

@@ -304,10 +304,10 @@ MessageLogger = R6Class(
if (!missing(depth)) self$depth <- depth
},
depthIncrement = function() {
self$depth <- self$depth + 2
self$depth <- self$depth + 1
},
depthDecrement = function() {
self$depth <- self$depth - 2
self$depth <- self$depth - 1
},
node = function(reactId) {
nodeInfo <- nodeCache[[reactId]]
@@ -317,7 +317,7 @@ MessageLogger = R6Class(
},
log = function(...) {
msg <- paste0(
paste0(rep(" ", depth), collapse = ""), " - ", paste0(..., collapse = ""),
paste0(rep(". ", depth), collapse = ""), " - ", paste0(..., collapse = ""),
collapse = ""
)
self$messages[length(self$messages) + 1] <- msg