# \donttest{
if (interactive()) {
# 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()
}
# }
Run the code above in your browser using DataLab