In HenrikBengtsson/marshal: Framework to Marshal Objects to be Used in Another R Process

known_cases <- system.file("known_cases.json", package = "marshal")
support <- jsonlite::read_json(known_cases, simplifyVector = TRUE)
support <- lapply(support, FUN = function(x) {
  if (is.logical(x)) c("no", "yes")[x+1] else x
})
support <- as.data.frame(support)
names <- colnames(support)
names <- gsub("_marshalled", "_marshalled?", names)
names <- gsub("_", " ", names)
names <- gsub("_", " ", names)
colnames(support) <- names
support <- with(support, support[order(tolower(package)), ])
rownames(support) <- NULL
DT::datatable(support, options = list(pageLength = 50))

HenrikBengtsson/marshal documentation built on June 11, 2024, 11:35 a.m.