Hi Giovanni,

Thanks for your reply. I can make the function work after parsing the code
directly into R. The problem arise after compiling the function into a
package and then calling the function, because the files inside "source()"
seems to be missing.

I tried to include the sourced files in the argument "code_files" of
the function "package.skeleton". The files are brought correctly to the
package but when running the generated package then the files produce an
error due to variables that are not defined.

There may be no way around other than copying the content of the sourced
files into the file where the function is defined?
- in this way the definition of the function is all written in one file, but
the organization of the code-sections is worse than when using the
source()-function...

Best regards,
Johan


2009/10/20 Giovanni Petris <GPetris@uark.edu>

>
> The problem probably lies in the source-ing part: look at
>
> getwd()
> setwd()
>
> HTH,
> Giovanni
>
> > Date: Tue, 20 Oct 2009 13:00:02 +0200
> > From: Johan Lassen <jlenvi@gmail.com>
> > Sender: r-help-bounces@r-project.org
> > Precedence: list
> > DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com;
> s=gamma;
> > DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma;
> >
> > --===============0554064772==
> > Content-Type: text/plain
> > Content-Disposition: inline
> > Content-Transfer-Encoding: quoted-printable
> > Content-length: 1477
> >
> > Dear R community,
> >
> > You may have the solution to how to construct a function using the
> function
> > "source()" to build the function; i.e.
> >
> > myfunction <- function(...){
> > source('file1.r')
> > source('file2.r')
> > }
> >
> > After compiling and installing the "myfunction" in R, then calling the
> > "myfunction" gives an error because the content of 'file1.r' and
> 'file2.r'
> > seems to be missing.
> >
> > Anyone has the trick to overcome this problem?
> >
> > Thanks in advance!
> >
> > best wishes, Johan
> >
> >
> > PS: My function is:
> >
> >
> > run_accumm_value <- function(ind_noder_0,
> > ind_loc_val,ind_retention,downstream){
> > ## Preprocessing of looping calculations:
> > koersel_uden_ret <- length(unique(ind_noder_0$oplid))
> > opsaml_b_0_2 <- numeric(koersel_uden_ret)
> > opsaml_b_0_2_1 <- numeric(koersel_uden_ret)
> > opsaml_b_0_2_2 <- seq(1:koersel_uden_ret)
> > ## Preprocessing of topology and local values to be summed:
> > source('preproces_topology.r', local =3D T)
> > source('preproces_loc_val.r', local =3D T)
> > # Loop for each grouping factor (column in ind_noder_0: "oplid"):
> > for(j in 1:koersel_uden_ret){
> > source('matrix_0.r', local =3D T)
> > source('matrix.r', local =3D T)
> > source('local_value.r', local =3D T)
> > source('fordeling.r', local =3D T)
> > source('fordeling_manuel.r', local =3D T)
> > source('local_ret.r', local =3D T)
> > source('Ax=3Db.r', local =3D T)
> > source('opsamling_x_0_acc.r', local =3D T)
> > }
> > source('opsamling_b_1.r', local =3D T)
> > opsaml_b_2
> > }
> >
> >
> >
> >
> >
> > --=20
> > Johan Lassen
> > Environment Center Nyk=F8bing F
> > Denmark
> >
> >       [[alternative HTML version deleted]]
> >
> >
> > --===============0554064772==
> > Content-Type: text/plain; charset="us-ascii"
> > MIME-Version: 1.0
> > Content-Transfer-Encoding: 7bit
> > Content-Disposition: inline
> >
> > ______________________________________________
> > R-help@r-project.org mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html<http://www.r-project.org/posting-guide.html>
> > and provide commented, minimal, self-contained, reproducible code.
> >
> > --===============0554064772==--
> >
> >
>
> --
>
> Giovanni Petris  <GPetris@uark.edu>
> Associate Professor
> Department of Mathematical Sciences
> University of Arkansas - Fayetteville, AR 72701
> Ph: (479) 575-6324, 575-8630 (fax)
> http://definetti.uark.edu/~gpetris/
>



-- 
Johan Lassen
Environment Center Nykøbing F
Denmark

	[[alternative HTML version deleted]]


