curl --request POST \
  --url https://api.iotools.cloud/v1/tool/r-code-formatter \
  --header 'Authorization: Bearer <token>' \
  --header 'Content-Type: application/json' \
  --data '
{
  "rInput": "library(dplyr)\nlibrary(ggplot2)\n\n# Summarise penguin body measurements by species\nsummarise_penguins=function(data,group_col=\"species\"){\ndata%>%\ngroup_by(.data[[group_col]])%>%\nsummarise(\nn=n(),\nmean_mass=mean(body_mass_g,na.rm=TRUE),\nmean_flipper=mean(flipper_length_mm,na.rm=TRUE),\n.groups=\"drop\"\n)\n}\n\n# Plot helper\nplot_penguins=function(data,x=\"flipper_length_mm\",y=\"body_mass_g\"){\nggplot(data,aes(x=.data[[x]],y=.data[[y]],colour=species))+\ngeom_point(alpha=0.7)+\nlabs(title=\"Palmer Penguins\",x=x,y=y)+\ntheme_minimal()\n}\n\n# Filter mature penguins, then summarise\nresult=palmerpenguins::penguins%>%\nfilter(!is.na(body_mass_g))%>%\nsummarise_penguins()\n\nprint(result)",
  "indentSize": "2",
  "maxLineLength": "80",
  "preferArrow": "true"
}
'

{
  "tool": "r-code-formatter",
  "tool_version": "1.0.1",
  "outputs": {
    "formattedOutput": "library(dplyr)\nlibrary(ggplot2)\n\n# Summarise penguin body measurements by species\nsummarise_penguins <- function(data, group_col = \"species\") {\n  data %>%\n  group_by(.data[[group_col]]) %>%\n  summarise(\n    n = n(),\n    mean_mass = mean(body_mass_g, na.rm = TRUE),\n    mean_flipper = mean(flipper_length_mm, na.rm = TRUE),\n    .groups = \"drop\"\n  )\n}\n\n# Plot helper\nplot_penguins <- function(data, x = \"flipper_length_mm\", y = \"body_mass_g\") {\n  ggplot(data, aes(x = .data[[x]], y = .data[[y]], colour = species)) +\n  geom_point(alpha = 0.7) +\n  labs(title = \"Palmer Penguins\", x = x, y = y) +\n  theme_minimal()\n}\n\n# Filter mature penguins, then summarise\nresult <- palmerpenguins::penguins %>%\nfilter(!is.na(body_mass_g)) %>%\nsummarise_penguins()\n\nprint(result)\n",
    "validation": [
      {
        "issue": "Valid R — no syntax errors detected."
      }
    ]
  },
  "credits_used": 3,
  "credits_remaining": null
}