Re: [ESS] How to get working Rnw file name inside script
Hi Rrof. Goulet,
Thank you very much for sharing the function.
It works.
Now I noticed that the return value of commandArgs() inside Rnw with
ess includes a working Rnw file name.
\begin{Schunk}
\begin{Sinput}
> commandArgs()
\end{Sinput}
\begin{Soutput}
[1] "/usr/lib/R/bin/exec/R"
[2] "--no-restore"
[3] "--no-echo"
[4] "--args"
[5] "nextArghogehoge.RnwnextArg--options=output='hogehoge-woven.tex'"
\end{Soutput}
\end{Schunk}
--
Susumu Tanimura
On Wed, 8 May 2024 22:17:36 +
Vincent Goulet wrote:
> I'm not sure this is what you're looking for, but here goes. I have
> been using the following function for a number of years to extract
> the name of the file from which Sweave is called.
>
> ###
> ### getSourceName()
> ###
> ## Extract the name of the file used in the command 'Sweave' calling
> ## this function.
> ##
> ## Value
> ##
> ## Filename as a character string
> ##
> getSourceName <- function()
> {
>args <- commandArgs(FALSE)
>
>## If Sweave is launched with
>##
>## R -e "Sweave('foo.Rnw', ...)"
>##
>## the expression is one of the arguments and we can extract the
>## filename.
>if (length(cmd <- grep("Sweave\\(", args, value = TRUE)))
>return(regmatches(cmd,
> regexpr("(?<=Sweave\\(['\"]).*(?=['\"])",
> cmd, perl = TRUE)))
>
>## If Sweave is launched with
>##
>## R CMD Sweave --encoding="utf-8" foo.Rnw
>##
>## the argument containing the relevant information is a character
>## string of the form
>##
>## nextArg--encoding=utf-8nextArgfoo.Rnw
>##
>## The arguments are in the order they were entered at the command
>## line.
>if (length(cmd <- grep("^nextArg", args, value = TRUE)))
>return(grep("^--|^$", strsplit(cmd, 'nextArg', fixed = TRUE)
> [[1L]], invert = TRUE, value = TRUE))
> }
>
> Hope this helps!
>
> v.
>
> Vincent Goulet
> Professeur titulaire
> École d'actuariat, Université Laval
>
> > Le 28 avr. 2024 à 01:57, Susumu Tanimura via ESS-help
> > a écrit :
> >
> > Dear all,
> >
> > When using the Stangle() function within an Rnw file to insert an
> > entire R code into an appendix of a document, it is necessary to
> > provide the working Rnw file name. While manually entering the name
> > is a viable option, it would be beneficial for me to implement it
> > within a template for Rnw files.
> >
> > My question is how to get working Rnw file name inside script.
> >
> > This issue is not directly related to ESS, but the solution must be
> > compatible with ESS and Emacs.
> >
> > Thank you
> >
> > --
> > Susumu Tanimura
> >
> > __
> > ESS-help@r-project.org mailing list
> > https://stat.ethz.ch/mailman/listinfo/ess-help
>
__
ESS-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/ess-help
Re: [ESS] How to get working Rnw file name inside script
I'm not sure this is what you're looking for, but here goes. I have been using
the following function for a number of years to extract the name of the file
from which Sweave is called.
###
### getSourceName()
###
## Extract the name of the file used in the command 'Sweave' calling
## this function.
##
## Value
##
## Filename as a character string
##
getSourceName <- function()
{
args <- commandArgs(FALSE)
## If Sweave is launched with
##
## R -e "Sweave('foo.Rnw', ...)"
##
## the expression is one of the arguments and we can extract the
## filename.
if (length(cmd <- grep("Sweave\\(", args, value = TRUE)))
return(regmatches(cmd,
regexpr("(?<=Sweave\\(['\"]).*(?=['\"])",
cmd, perl = TRUE)))
## If Sweave is launched with
##
## R CMD Sweave --encoding="utf-8" foo.Rnw
##
## the argument containing the relevant information is a character
## string of the form
##
## nextArg--encoding=utf-8nextArgfoo.Rnw
##
## The arguments are in the order they were entered at the command line.
if (length(cmd <- grep("^nextArg", args, value = TRUE)))
return(grep("^--|^$", strsplit(cmd, 'nextArg', fixed = TRUE)[[1L]],
invert = TRUE, value = TRUE))
}
Hope this helps!
v.
Vincent Goulet
Professeur titulaire
École d'actuariat, Université Laval
> Le 28 avr. 2024 à 01:57, Susumu Tanimura via ESS-help
> a écrit :
>
> Dear all,
>
> When using the Stangle() function within an Rnw file to insert an
> entire R code into an appendix of a document, it is necessary to
> provide the working Rnw file name. While manually entering the name is
> a viable option, it would be beneficial for me to implement it within a
> template for Rnw files.
>
> My question is how to get working Rnw file name inside script.
>
> This issue is not directly related to ESS, but the solution must be
> compatible with ESS and Emacs.
>
> Thank you
>
> --
> Susumu Tanimura
>
> __
> ESS-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/ess-help
__
ESS-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/ess-help
[ESS] How to get working Rnw file name inside script
Dear all, When using the Stangle() function within an Rnw file to insert an entire R code into an appendix of a document, it is necessary to provide the working Rnw file name. While manually entering the name is a viable option, it would be beneficial for me to implement it within a template for Rnw files. My question is how to get working Rnw file name inside script. This issue is not directly related to ESS, but the solution must be compatible with ESS and Emacs. Thank you -- Susumu Tanimura __ ESS-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/ess-help
