the demo bivar has been removed from the rgl package

Author: yihui

003-minimal.Rhtml

@@ -32,7 +32,7 @@
 <!--begin.rcode html-cars-scatter, message=FALSE, fig.align='center', warning=FALSE
     library(ggplot2)
     plot(mpg~hp, mtcars)
-    qplot(hp, mpg, data=mtcars)+geom_smooth()
+    ggplot(mtcars, aes(hp, mpg))+geom_smooth()
     end.rcode-->
 
   <p>Errors, messages and warnings can be put into <code>div</code>'s
@@ -53,8 +53,8 @@
     end.rcode-->
 
 <!--begin.rcode fancy-rgl, rgl=TRUE, fig.align='center', fig.width=4, fig.height=4, warning=FALSE
-    demo('bivar', package='rgl', echo=FALSE)
-    par3d(zoom=.7)
+    plot3d(data.frame(x = rnorm(100), y = rnorm(100), z = rnorm(100)), col = rainbow(100))
+    par3d(zoom=.8)
     end.rcode-->
 
   <p>Well, everything seems to be working. Let's ask R what is the

003-minimal.html

@@ -100,7 +100,7 @@
 <span class="hl kwd">plot</span><span class="hl std">(mpg</span> <span class="hl opt">~</span> <span class="hl std">hp, mtcars)</span>
 </pre></div>
 </div><div class="rimage center"><img src="https://db.yihui.org/knitr-examples/figure/003-minimal-html-cars-scatter-1.png" alt="plot of chunk html-cars-scatter" class="plot" /></div><div class="rcode">
-<div class="source"><pre class="knitr r"><span class="hl kwd">qplot</span><span class="hl std">(hp, mpg,</span> <span class="hl kwc">data</span> <span class="hl std">= mtcars)</span> <span class="hl opt">+</span> <span class="hl kwd">geom_smooth</span><span class="hl std">()</span>
+<div class="source"><pre class="knitr r"><span class="hl kwd">ggplot</span><span class="hl std">(mtcars,</span> <span class="hl kwd">aes</span><span class="hl std">(hp, mpg))</span> <span class="hl opt">+</span> <span class="hl kwd">geom_smooth</span><span class="hl std">()</span>
 </pre></div>
 </div><div class="rimage center"><img src="https://db.yihui.org/knitr-examples/figure/003-minimal-html-cars-scatter-2.png" alt="plot of chunk html-cars-scatter" class="plot" /></div></div>
 
@@ -131,8 +131,8 @@
 </pre></div>
 </div></div>
 
-<div class="chunk" id="fancy-rgl"><div class="rcode"><div class="source"><pre class="knitr r"><span class="hl kwd">demo</span><span class="hl std">(</span><span class="hl str">&quot;bivar&quot;</span><span class="hl std">,</span> <span class="hl kwc">package</span> <span class="hl std">=</span> <span class="hl str">&quot;rgl&quot;</span><span class="hl std">,</span> <span class="hl kwc">echo</span> <span class="hl std">=</span> <span class="hl num">FALSE</span><span class="hl std">)</span>
-<span class="hl kwd">par3d</span><span class="hl std">(</span><span class="hl kwc">zoom</span> <span class="hl std">=</span> <span class="hl num">0.7</span><span class="hl std">)</span>
+<div class="chunk" id="fancy-rgl"><div class="rcode"><div class="source"><pre class="knitr r"><span class="hl kwd">plot3d</span><span class="hl std">(</span><span class="hl kwd">data.frame</span><span class="hl std">(</span><span class="hl kwc">x</span> <span class="hl std">=</span> <span class="hl kwd">rnorm</span><span class="hl std">(</span><span class="hl num">100</span><span class="hl std">),</span> <span class="hl kwc">y</span> <span class="hl std">=</span> <span class="hl kwd">rnorm</span><span class="hl std">(</span><span class="hl num">100</span><span class="hl std">),</span> <span class="hl kwc">z</span> <span class="hl std">=</span> <span class="hl kwd">rnorm</span><span class="hl std">(</span><span class="hl num">100</span><span class="hl std">)),</span> <span class="hl kwc">col</span> <span class="hl std">=</span> <span class="hl kwd">rainbow</span><span class="hl std">(</span><span class="hl num">100</span><span class="hl std">))</span>
+<span class="hl kwd">par3d</span><span class="hl std">(</span><span class="hl kwc">zoom</span> <span class="hl std">=</span> <span class="hl num">0.8</span><span class="hl std">)</span>
 </pre></div>
 </div><div class="rimage center"><img src="https://db.yihui.org/knitr-examples/figure/003-minimal-fancy-rgl-1.png" alt="plot of chunk fancy-rgl" class="plot" /></div></div>
 

092-latex-rgl.Rnw

@@ -2,7 +2,7 @@
 \usepackage{url}
 \begin{document}
 
-A bug reported at \url{http://cos.name/cn/topic/110742}.
+A bug reported at \url{https://d.cosx.org/d/110742}.
 
 <<rgl-demo>>=
 library(knitr)
@@ -15,8 +15,8 @@ Then we only have to set the chunk option \texttt{rgl=TRUE}:
 
 <<fancy-rgl, rgl=TRUE, dev='png', out.width='3in', fig.align='center', fig.show='hold', warning=FALSE>>=
 library(rgl)
-demo('bivar', package='rgl', echo=FALSE)
-par3d(zoom=.7)
+plot3d(data.frame(x = rnorm(100), y = rnorm(100), z = rnorm(100)), col = rainbow(100))
+par3d(zoom=.8)
 @
 
 \end{document}

092-latex-rgl.tex

@@ -53,7 +53,7 @@
 \IfFileExists{upquote.sty}{\usepackage{upquote}}{}
 \begin{document}
 
-A bug reported at \url{http://cos.name/cn/topic/110742}.
+A bug reported at \url{https://d.cosx.org/d/110742}.
 
 \begin{knitrout}
 \definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
@@ -81,8 +81,8 @@
 \definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
 \begin{alltt}
 \hlkwd{library}\hlstd{(rgl)}
-\hlkwd{demo}\hlstd{(}\hlstr{"bivar"}\hlstd{,} \hlkwc{package} \hlstd{=} \hlstr{"rgl"}\hlstd{,} \hlkwc{echo} \hlstd{=} \hlnum{FALSE}\hlstd{)}
-\hlkwd{par3d}\hlstd{(}\hlkwc{zoom} \hlstd{=} \hlnum{0.7}\hlstd{)}
+\hlkwd{plot3d}\hlstd{(}\hlkwd{data.frame}\hlstd{(}\hlkwc{x} \hlstd{=} \hlkwd{rnorm}\hlstd{(}\hlnum{100}\hlstd{),} \hlkwc{y} \hlstd{=} \hlkwd{rnorm}\hlstd{(}\hlnum{100}\hlstd{),} \hlkwc{z} \hlstd{=} \hlkwd{rnorm}\hlstd{(}\hlnum{100}\hlstd{)),} \hlkwc{col} \hlstd{=} \hlkwd{rainbow}\hlstd{(}\hlnum{100}\hlstd{))}
+\hlkwd{par3d}\hlstd{(}\hlkwc{zoom} \hlstd{=} \hlnum{0.8}\hlstd{)}
 \end{alltt}
 \end{kframe}