Web Val: HTTP real, query params, body JSON, respuesta JSON con schema estable. Pensado para escalar a UI + API.

Flujo:

R / Python  →  Web Val (HTTP real)  →  JSON (schema estable)  →  Widget reutilizable

• HTTP real: GET y POST al val (URL web de Val Town, no api.val.town/v1/run/...).
• Query params: GET con ?inputId=...&choices=...&selected=...&min_items=...&max_items=... (choices y selected en JSON string).
• Body JSON: POST con el mismo contrato en el body.
• Respuesta: siempre JSON (no HTML). El widget se renderiza donde consumas ese JSON (R, Python, UI, etc.).

Formas de choices: vector ["a","b"], objetos [{value:"a",label:"A"}], o dict {"a":"A","b":"B"}. Se tolera NULL/None en opcionales.

Éxito (200):

{
  "ok": true,
  "data": {
    "inputId": "string",
    "options": [
      { "value": "string", "label": "string", "selected": true }
    ],
    "min_items": 0,
    "max_items": 3
  }
}

Error (400):

{
  "ok": false,
  "error": {
    "code": "INVALID_SELECTION",
    "message": "Selected value(s) not in choices: ..."
  }
}

Códigos de error: MIN_MAX_INCOHERENT, MAX_EXCEEDS_OPTIONS, INVALID_SELECTION, BELOW_MIN_ITEMS, ABOVE_MAX_ITEMS, PARSE_ERROR, MISSING_CHOICES, INVALID_BODY.

base <- "https://TU_USUARIO-selectizeInput.web.val.run"

body <- list(
  inputId = "mi_selector",
  choices = list(a = "Opción A", b = "Opción B", c = "Opción C"),
  selected = c("a", "b"),
  min_items = 1L,
  max_items = 3L
)

res <- httr::POST(paste0(base, "/"), body = body, encode = "json")
json <- httr::content(res, "parsed")

# json$ok == TRUE → json$data (inputId, options, min_items, max_items)
# json$ok == FALSE → json$error (code, message)
# Con json$data puedes renderizar el widget donde quieras

import requests

base = "https://TU_USUARIO-selectizeInput.web.val.run"
payload = {
    "inputId": "mi_selector",
    "choices": {"a": "Opción A", "b": "Opción B", "c": "Opción C"},
    "selected": ["a", "b"],
    "min_items": 1,
    "max_items": 3,
}

r = requests.post(f"{base}/", json=payload)
data = r.json()

# data["ok"] → data["data"] (inputId, options, min_items, max_items)
# data["ok"] == False → data["error"] (code, message)

• selectizeInput.http.ts: Web Val autocontenido (sin imports relativos; único archivo que sube Val Town).
• shared/types.ts: Contrato y modelos internos (desarrollo local).
• shared/api-schema.ts: Schema estable de la respuesta API (desarrollo local).
• backend/: Normalización, validación, render (desarrollo local; el val inlined todo en un solo archivo).

El mismo endpoint devuelve JSON. Puedes:

• Consumir desde R/Python y construir tu propio widget con data.options, data.inputId, etc.
• Añadir después una ruta (ej. /widget o /ui) que devuelva HTML generado a partir del mismo flujo, o un front que llame a / o /api/selectize y renderice con el JSON.