Convenience function to create an MCP server.
Examples
if (FALSE) { # \dontrun{
# Create a server with a custom tool
server <- create_mcp_server("my-r-server")
# Add a tool
server$add_tool(tool(
name = "calculate",
description = "Perform a calculation",
parameters = z_object(
expression = z_string(description = "R expression to evaluate")
),
execute = function(args) {
eval(parse(text = args$expression))
}
))
# Start listening (blocking)
server$listen()
} # }