chattr_app(as_job = TRUE) error with OpenRouter

[JCfly3000]

openrouter_model <- chat_openrouter(
api_key = key_get("openrouter"),
model = "moonshotai/kimi-k2:free"
)

chattr_use(openrouter_model)

chattr_app(as_job = TRUE)

The shinyapp end when input. Error message:

Listening on http://127.0.0.1:7788
Warning: Error in ch_env$ellmer_obj$set_system_prompt: attempt to apply non-function
87: ch_ellmer_init
86: ch_submit.ch_ellmer
84: observe
83: observer:observeEvent(input$submit)
4: shiny::runApp
3: eval
2: eval
1: .rs.sourceWithProgress

[alexanderbor]

I am experiencing the same issue. I will try to give a more detailed description in case it could help resolve the issue. I set up chattr as per the guide. I am using OpenAI API. the chattr() function works well, it gives me responses to prompts in the console. the chattr_app() works also if as_job = FALSE. chattr_app(as_job = TRUE) boots up the interface in the Viewer pane, but once I try to submit a prompt, it shuts down with the following message:

Using model = "gpt-4.1".
── chattr ──────────────────────────────────────────────────────────────────────
── Defaults for: Default ──
── Prompt: 
── Model 
• Provider: OpenAI
• Model: gpt-4.1
• Label: gpt-4.1 (OpenAI)
── Context: 
Max Data Files: 0
Max Data Frames: 0
✖ Chat History
✖ Document contents
Loading required package: shiny

Listening on http://127.0.0.1:7788
Warning: Error in ch_env$ellmer_obj$set_system_prompt: attempt to apply non-function
  87: ch_ellmer_init
  86: ch_submit.ch_ellmer
  84: observe
  83: <observer:observeEvent(input$submit)>
   4: shiny::runApp
   3: eval
   2: eval
   1: .rs.sourceWithProgress

Execution halted

A possible unrelated anomaly is that if I run chattr::chattr_test(), on a fresh start, I get an error.

── chattr 
• Provider: OpenAI
• Model: gpt-4.1
• Label: gpt-4.1 (OpenAI)

── Testing chattr 
• Provider:
• Model:
Error in if (x[["label"]] != x[["model"]]) { : argument is of length zero
4. print_provider(defaults)
3. ch_test.ch_model(defaults)
2. ch_test(defaults)
1. chattr_test()

However, if I try to run it after using chattr(), it suddenly works.

> chattr::chattr("hi")
# Hello! How can I help you with R code using tidyverse or tidymodels?
> chattr::chattr_test()

── Testing chattr 
• Provider: OpenAI
• Model: gpt-4.1
• Label: gpt-4.1 (OpenAI)
✔ Connection to gpt-4.1 cofirmed
|--Prompt: Hi!
|--Response: # Hello! How can I assist you with R, tidyverse, or tidymodels
code today?

here is my session info:

─ Session info ──────────────────────────────────────────────────────────────
 setting  value
 version  R version 4.4.3 (2025-02-28)
 os       macOS Sequoia 15.4.1
 system   x86_64, darwin20
 ui       RStudio
 language (EN)
 collate  en_US.UTF-8
 ctype    en_US.UTF-8
 tz       Europe/Budapest
 date     2025-11-12
 rstudio  2025.09.2+418 Cucumberleaf Sunflower (desktop)
 pandoc   NA
 quarto   1.7.32 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/quarto