зеркало из https://github.com/Azure/AzureVM.git
9 строки
231 B
R
9 строки
231 B
R
|
lapply(dir("inst/tpl", pattern="\\.json$"), function(f)
|
||
|
{
|
||
|
objname <- sub("\\.json$", "", f)
|
||
|
obj <- jsonlite::fromJSON(file.path("inst/tpl", f), simplifyVector=FALSE)
|
||
|
|
||
|
assign(objname, obj, parent.env(environment()))
|
||
|
})
|
||
|
|