[Tikzdevice-bugs] Single file with tikzDevice

[Gabor Grothendieck]

Great. Just one other related comment.  I think I would likely use the
tikz(..., append=TRUE) style but some might prefer to use sink.  That could
be done if it were possible to write the output to stdout like this.   If
its not a problem you might want to add that too.

sink("myfile.tex")
cat("\\documentclass{article}
\\usepackage{tikz}
\begin{document}
\\begin{figure}[ht]
\\centering
")
# "" or "stdout" or default writes to stdout
tikz(width=5, height=5)
x <- rnorm(100)
plot(x)
dev.off()
cat("\\caption{caption}
\\label{fig:inline}
\\end{figure}
\\end{document}
")
sink()



On Sun, Dec 6, 2009 at 3:04 PM, Cameron Bracken
<cameron.bracken at gmail.com>wrote:

> I liked this idea so much that I implemented it right away. You can
> get it from the master branch of my github fork until the next release
>
> http://github.com/cameronbracken/rtikzdevice/network
>
> Instead of "append" i called it "console."  It works nearly as you
> envisioned:
>
> cat("\\documentclass{article}
> \\usepackage{tikz}
>
> \\begin{document}
> \\begin{figure}[ht]
> \\centering
> ", file = "myfile.tex")
>
> sink("myfile.tex",append=T)
> tikz(console=T, width=5, height=5)
>
> x <- rnorm(100)
> plot(x)
> quiet <- dev.off()
> sink()
>
> cat("\\caption{caption}
>
> \\label{fig:inline}
> \\end{figure}
> \\end{document}
> ", file = "myfile.tex", append = TRUE)
>
> The following will now produce a self contained tex file:
>
> \documentclass{article}
> \usepackage{tikz}
> \usepackage[nogin]{Sweave}
> \begin{document}
> \begin{figure}[ht]
> \centering
> <<inline,echo=F,results=tex>>=
>
>  require(tikzDevice)
>   tikz(console=T,width=5,height=5)
>     x <- rnorm(100)
>    plot(x)
>   dummy <- dev.off()
>
> @
> \caption{caption}
> \label{fig:inline}
> \end{figure}
> \end{document}
>
>
> -Cameron
>
>
> On Sun, Dec 6, 2009 at 9:46 AM, Gabor Grothendieck
> <ggrothendieck at gmail.com> wrote:
> > If you able to provide this feature (i.e. incorporate the tikz tex
> directly
> > into the current file rather than writing out a temporary file and
> reading
> > it back in) then that would be useful since one of the key potential
> > advantages of tikz and pgf are the ability to have a single file rather
> than
> > multiple files.  Perhaps an append=TRUE argument like this:
> >
> > cat("\\documentclass{article}
> > \\usepackage{tikz}
> > \begin{document}
> > \\begin{figure}[ht]
> > \\centering
> > ", file = "myfile.tex")
> > tikz("myfile.tex", width=5, height=5, append = TRUE)
> > x <- rnorm(100)
> > plot(x)
> > dev.off()
> > cat("\\caption{caption}
> > \\label{fig:inline}
> > \\end{figure}
> > \\end{document}
> > ", file = "myfile.tex", append = TRUE)
> >
> > On Sun, Dec 6, 2009 at 11:34 AM, Cameron Bracken <
> cameron.bracken at gmail.com>
> > wrote:
> >>
> >> Interesting Idea.  This should work with plain Sweave.  It is not very
> >> efficient and would be very slow for large files since it must write
> >> out then read in then write out.
> >>
> >> \documentclass{article}
> >> \usepackage{tikz}
> >> \usepackage[nogin]{Sweave}
> >> \begin{document}
> >> \begin{figure}[ht]
> >> \centering
> >> <<inline,echo=F,results=tex>>=
> >>
> >>  require(tikzDevice)
> >>  tf <- tempfile()
> >>  tikz(tf,width=5,height=5)
> >>    x <- rnorm(100)
> >>    plot(x)
> >>  #Suppress "null device 1" from being printed
> >>  dummy <- dev.off()
> >>  cat(readLines(tf),sep='\n')
> >>
> >> @
> >> \caption{caption}
> >> \label{fig:inline}
> >> \end{figure}
> >> \end{document}
> >>
> >>
> >> -Cameron
> >>
> >>
> >>
> >> On Sun, Dec 6, 2009 at 9:02 AM, Gabor Grothendieck
> >> <ggrothendieck at gmail.com> wrote:
> >> > I would like to create a single file that has my latex and tikzDevice
> >> > output
> >> > as opposed to outputting the tikZ output into a separate file and
> using
> >> > \input .  The latex would be generated using cat statements in R.
> >> >
> >> > Can that be done?  If so, can you provide a small example.
> >> >
> >> >
> >
> >
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.r-forge.r-project.org/pipermail/tikzdevice-bugs/attachments/20091206/a2462e0a/attachment-0001.htm