Convert an output of linear model to an json file in R - r

Question

Hi i am trying to convert the coefficients of a linear model into an json file.I have converted to an ject first and then convert it to a json file.I have multiple factors but only one factor output is able to write to the json file.Any leads will be helpful.
mod
fs<-summary(mod)
df<-fs$coefficients
my_json<-jsonlite::toJSON(df,force=TRUE,pretty=TRUE)
#print(my_json)
write(my_json,"exportnew.JSON")

Answer 1

library(tidyverse)
library(jsonlite)
lm(Sepal.Length ~ Species + Sepal.Width, data = iris) %>%
coefficients() %>%
enframe() %>%
write_json("model_coeffs.json", pretty = TRUE)
Resulting in file model_coeffs.json with content:
[
{
"name": "(Intercept)",
"value": 2.2514
},
{
"name": "Speciesversicolor",
"value": 1.4587
},
{
"name": "Speciesvirginica",
"value": 1.9468
},
{
"name": "Sepal.Width",
"value": 0.8036
}
]
You can nest specific variables e.g.
library(tidyverse)
library(jsonlite)
factor <- mpg %>% colnames() %>% paste0(collapse = "|")
lm(displ ~ manufacturer + class + year, data = mpg) %>%
coefficients() %>%
enframe() %>%
mutate(factor = name %>% str_extract(factor)) %>%
nest(-factor) %>%
mutate(data = data %>% map(~ as.numeric(.$value))) %>%
write_json("model_coeffs.json", pretty = TRUE)
resulting in
[
{
"data": [-50.2851]
},
{
"factor": "manufacturer",
"data": [1.246, 1.2091, 1.1909, -1.1599, -0.3859, 0.7445, 0.5315, 1.6728, 0.6315, 0.2552, 1.276, -0.7175, -0.0727, -0.3671]
},
{
"factor": "class",
"data": [-2.3777, -2.1805, -2.6961, -1.4081, -2.0045, -1.1207]
},
{
"factor": "year",
"data": [0.0275]
}
]