Thanks Sarah,
The code works just fine.
Luca
2016-07-11 22:43 GMT+02:00 Sarah Goslee <sarah.gos...@gmail.com>:
> Taking your question at face value, except for the factors in your
> original data frame, you can output anything you'd like to text
> onscreen using cat(). Output can also be saved to text files with
> sink() or using batch files, etc and so forth.
>
>
>
> date <-
> c("07-jul-16","07-jul-16","07-jul-16","08-jul-16","08-jul-16","08-jul-16","09-jul-16","09-jul-16")
> varA <- c("text A1","text A2","text A3","text A4","text A5","text
> A6","text A7","text A8")
> varB <- c("link B1","link B2","link B3","link B4","link B5","link
> B6","link B7","link B8")
> mydf <- data.frame(date, varA, varB, stringsAsFactors=FALSE)
>
> for(i in sort(unique(mydf$date))) {
> thisdate <- subset(mydf, date==i)
> cat(i, "\n\n")
> for(j in seq_len(nrow(thisdate))) {
> cat(thisdate$varA[j], "\n")
> cat(thisdate$varB[j], "\n\n")
> }
> }
>
> This code prints to screen:
>
> 07-jul-16
>
> text A1
> link B1
>
> text A2
> link B2
>
> text A3
> link B3
>
> 08-jul-16
>
> text A4
> link B4
>
> text A5
> link B5
>
> text A6
> link B6
>
> 09-jul-16
>
> text A7
> link B7
>
> text A8
> link B8
>
>
> On Mon, Jul 11, 2016 at 4:24 PM, Luca Meyer <lucam1...@gmail.com> wrote:
> > Can anyone point me to an R script/function/procedure which, starting
> from
> > the following sample data
> >
> > #sample data
> > #NB: nrow(df) is variable
> >
> > date =
> >
> c("07-jul-16","07-jul-16","07-jul-16","08-jul-16","08-jul-16","08-jul-16","09-jul-16","09-jul-16")
> > varA = c("text A1","text A2","text A3","text A4","text A5","text
> A6","text
> > A7","text A8")
> > varB = c("link B1","link B2","link B3","link B4","link B5","link
> B6","link
> > B7","link B8")
> > df = data.frame(date, varA, varB)
> >
> > allows me to obtain a text output such as:
> >
> >> 07-jul-16
> >
> > text A1
> > link B1
> >
> > text A2
> > link B2
> >
> > text A3
> > link B3
> >
> >> 08-jul-16
> >
> > text A4
> > link B4
> >
> > text A5
> > link B5
> >
> > text A6
> > link B6
> >
> >> 09-jul-16
> >
> > text A7
> > link B7
> >
> > text A8
> > link B8
> >
> > etc...
> >
> > Thanks,
> >
> > Luca
> >
> > [[alternative HTML version deleted]]
>
> Please post in plain text.
>
> --
> Sarah Goslee
> http://www.functionaldiversity.org
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
