Create a ContextUsageResponse
Examples
cats <- list(ContextUsageCategory("user", 1024L, "#4e79a7"))
resp <- ContextUsageResponse(cats, total_tokens = 1024L)
resp$totalTokens
#> [1] 1024
Create a ContextUsageResponse
cats <- list(ContextUsageCategory("user", 1024L, "#4e79a7"))
resp <- ContextUsageResponse(cats, total_tokens = 1024L)
resp$totalTokens
#> [1] 1024