# NOT RUN {
examplePath <- system.file("examples", "example.json", package = "RSBJson")
exampleCon <- file(description = examplePath, open = "rt")
exampleLines <- readLines(exampleCon)
close(exampleCon)
exampleString <- paste(exampleLines, collapse = "\n")
(string <- RSBJsonService(jsonString = exampleString))
# }
Run the code above in your browser using DataLab