zzz.R at master ⋅ JohnCoene/sigmajs

storage_env <- new.env(hash = TRUE)

.onAttach <- function(libname, pkgname) {
  shiny::registerInputHandler("sigmajsParseJS", function(data, ...) {
    jsonlite::fromJSON(jsonlite::toJSON(data, auto_unbox = TRUE))
  }, force = TRUE)
}

.onLoad <- function(libname, pkgname) {
  shiny::registerInputHandler("sigmajsParseJS", function(data, ...) {
    jsonlite::fromJSON(jsonlite::toJSON(data, auto_unbox = TRUE))
  }, force = TRUE)
}

Read our documentation on viewing source code .

Navigation	Overlay
`t` Navigate files	`h` Toggle hits
`y` Change url to tip of branch	`m` Toggle misses
`b / v` Jump to prev/next hit line	`p` Toggle partial
`z / x` Jump to prev/next missed or partial line	`1..9` Toggle flags
`shift + o` Open current page in GitHub	`a` Toggle all on
`/ or ?` Show keyboard shortcuts dialog	`c` Toggle context lines or commits

1		storage_env <- new.env(hash = TRUE)
2
3		.onAttach <- function(libname, pkgname) {
4	1	shiny::registerInputHandler("sigmajsParseJS", function(data, ...) {
5	0	jsonlite::fromJSON(jsonlite::toJSON(data, auto_unbox = TRUE))
6	1	}, force = TRUE)
7		}
8
9		.onLoad <- function(libname, pkgname) {
10	0	shiny::registerInputHandler("sigmajsParseJS", function(data, ...) {
11	0	jsonlite::fromJSON(jsonlite::toJSON(data, auto_unbox = TRUE))
12	0	}, force = TRUE)
13		}