if (FALSE) {
## 1) Builder pattern --------------------------------------------
interp <- build_interpreter_agent(llm = my_llm_wrapper, verbose = FALSE)
table_txt <- "
| Region | Sales | Profit |
| North | 2000 | 300 |
| South | 1500 | 250 |"
res1 <- interp(table_txt)
res2 <- interp("R² = 0.87 for the fitted model …")
## 2) One-shot pattern -------------------------------------------
build_interpreter_agent(
llm = my_llm_wrapper,
code_output = table_txt,
verbose = FALSE
)
}
Run the code above in your browser using DataLab