[R] curious code mistakes

[Christian Schulz]

many Thanks for hex-editor suggestion ,
it's a copy paste problem !
christian


----- Original Message -----
From: "Uwe Ligges" <ligges at statistik.uni-dortmund.de>
To: "Christian Schulz" <ozric at web.de>
Cc: <r-help at stat.math.ethz.ch>
Sent: Monday, January 20, 2003 10:15 AM
Subject: Re: [R] curious code mistakes


> Christian Schulz wrote:
> > hi,
> > know anybody why this happen ?
> > I'm using winedt , the old code saved in an .R
> > call syntax error's. Curious is, when i'm type below
> > the  same code , it works ???
> >
> > ...imho a print type problem, what i'm never before observed and
> > can't recognize with my eyes ?
> >
> > P.S. R.1.6.1 /w2k
> >
> > thanks for advance
> > & regards,christian
> >
>
> So what are you doing? It looks like you didn't use source(), but
> copy&paste for your "old" code?
>
>
> >>>getfile <- function() {
>
> Where do the *three* ">" come from?
>
>
> > +               name <- tclvalue(tkgetOpenFile(filetypes="{{SPSS files}
{.sav}} {{All files} *}"))
> > Error: syntax error
>
> WinEdt is a powerful editor - that includes many ways for
> misconfiguration. You might want to look with an appropriate editor
> (e.g. any hex editor) into what you have produced ...; this can be done
> by WinEdt as well: Open the file in the standard WinEdt in mode "binary"
> - it won't show you exact results, but at least it marks non blanks and
> line endings differently.
>
> Uwe Ligges
>
>
> >>>       if (name == "") return;
> >
> > Error: syntax error
> >
> >>>       zz <- read.spss(name, use.value.label=T, to.data.frame=T)
> >
> > Error: syntax error
> >
> >>>       assign("myData", zz, envir = .GlobalEnv)
> >
> > Error: syntax error
> >
> >>>}
> >
> > Error: syntax error
> >
> >>>tt <- tktoplevel()
> >>>button.widget <- tkbutton(tt,text="Select SPSSFile", command=getfile)
> >
> > Error in .Tcl.args(...) : Object "getfile" not found
> >
> >>>tkpack(button.widget)
> >
> > Error in .Tcl.args(...) : Object "button.widget" not found
> >
> >>>
> >>>getfile <- function()  {
> >
> > +           name <- tclvalue(tkgetOpenFile(filetypes="{{SPSS Files}
{.sav}} {{All files} *}"))
> > +           if (name=="") return;
> > +           zz <- read.spss(name,use.value.label=T,to.data.frame=T)
> > +           assign("myData",zz,envir=.GlobalEnv)
> > +       }
> >
> >>>tt <- tktoplevel()
> >>>button.widget <- tkbutton(tt,text="Select SPSS File",command=getfile)
> >>>tkpack(button.widget)
> >
> > <Tcl>
> >
> >
> > [[alternate HTML version deleted]]
> >
> > ______________________________________________
> > R-help at stat.math.ethz.ch mailing list
> > http://www.stat.math.ethz.ch/mailman/listinfo/r-help
>
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> http://www.stat.math.ethz.ch/mailman/listinfo/r-help