R Under development (unstable) (2025-07-22 r88445 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(grid)
> library(gridSVG)

Attaching package: 'gridSVG'

The following objects are masked from 'package:grid':

    linearGradient, pattern, radialGradient

The following object is masked from 'package:grDevices':

    dev.off

> svgdev <- svgOpen(width=400, height=400)
> svgRect(0, 0, 400, 400, 
+         style=svgStyle(fill="none", stroke="black"),
+         svgdev=svgdev)
> svgStartGroup(svgdev=svgdev)
> svgRect(2, 2, 240, 320,
+         style=svgStyle(fill="none", stroke="green"),
+         svgdev=svgdev)
> svgLines(c(23.81, 45.63, 67.45, 89.27, 111.09, 132.90,
+            154.72, 176.54, 198.36, 220.18),
+          c(292.90, 263.81, 234.72, 205.63, 176.54,
+            147.45, 118.36, 89.27, 60.18, 31.09),
+          style=svgStyle(stroke="green"),
+          svgdev=svgdev)
> svgPolygon(c(23.81, 67.45, 89.27, 23.81),
+            c(31.09, 31.09, 147.45, 118.36),
+            style=svgStyle(fill="grey"),
+            svgdev=svgdev)
> svgRect(132.90, 89.27, 43.63, 29.09,
+         style=svgStyle(fill="cyan"),
+         svgdev=svgdev)
> svgText(45.63, 234.728,
+         "some text",
+         style=svgStyle(fill="red"),
+         svgdev=svgdev)
> svgCircle(176.54, 89.27, 2.18,
+           style=svgStyle(stroke="blue", fill="none"),
+           svgdev=svgdev)
> svgText(89.27, 147.45, "centred text", hjust="centre", vjust="centre", rot=20,
+         style=svgStyle(fill="yellow", stroke="black"),
+         svgdev=svgdev)
> 
> 
>   svgStartGroup(svgdev=svgdev)
>   svgRect(132.90, 147.45, 65.45, 29.09,
+           style=svgStyle(fill="none", stroke="black"),
+           svgdev=svgdev)
>   svgText(139.45, 162, "text in a box",
+           svgdev=svgdev)
>   svgEndGroup(svgdev=svgdev)
> 
> 
> svgRect(111.09, 60.18, 43.63, 203.63,
+         style=svgStyle(fill="green", opacity=.5),
+         svgdev=svgdev)
> svgEndGroup(svgdev=svgdev)
> svgClose(svgdev)
<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" width="400px" height="400px" viewBox="0 0 400 400" version="1.1">
  <g transform="translate(0, 400) scale(1, -1)">
    <rect id="" x="0" y="0" width="400" height="400" fill="none" stroke="black"/>
    <g id="">
      <rect id="" x="2" y="2" width="240" height="320" fill="none" stroke="green"/>
      <polyline id="" points="23.81,292.9 45.63,263.81 67.45,234.72 89.27,205.63 111.09,176.54 132.9,147.45 154.72,118.36 176.54,89.27 198.36,60.18 220.18,31.09" stroke="green" fill="none"/>
      <polygon id="" points="23.81,31.09 67.45,31.09 89.27,147.45 23.81,118.36" fill="grey"/>
      <rect id="" x="132.9" y="89.27" width="43.63" height="29.09" fill="cyan"/>
      <g id="" transform="translate(45.63, 234.73)" stroke-width="0.1">
        <g id=".scale" transform="scale(1, -1)">
          <text x="0" y="0" id=".text" text-anchor="start" fill="red">
            <tspan id=".tspan.1" dy="0" x="0">some text</tspan>
          </text>
        </g>
      </g>
      <circle id="" cx="176.54" cy="89.27" r="2.18" stroke="blue" fill="none"/>
      <g id="" transform="translate(89.27, 147.45)" stroke-width="0.1">
        <g id=".scale" transform="scale(1, -1)">
          <text x="0" y="0" id=".text" transform="rotate(-20)" text-anchor="middle" fill="yellow" stroke="black">
            <tspan id=".tspan.1" dy="0.4" x="0">centred text</tspan>
          </text>
        </g>
      </g>
      <g id="">
        <rect id="" x="132.9" y="147.45" width="65.45" height="29.09" fill="none" stroke="black"/>
        <g id="" transform="translate(139.45, 162)" stroke-width="0.1">
          <g id=".scale" transform="scale(1, -1)">
            <text x="0" y="0" id=".text" text-anchor="start">
              <tspan id=".tspan.1" dy="0" x="0">text in a box</tspan>
            </text>
          </g>
        </g>
      </g>
      <rect id="" x="111.09" y="60.18" width="43.63" height="203.63" fill="green" opacity="0.5"/>
    </g>
  </g>
</svg> 
> 
> 
> proc.time()
   user  system elapsed 
   0.45    0.06    0.50