Re: [R] previous monday date

2011-09-02 Thread Marc Schwartz
> On Fri, Sep 2, 2011 at 9:59 AM, Marc Schwartz wrote: > >> On Sep 2, 2011, at 10:35 AM, Ben qant wrote: >> >>> Hello, >>> >>> I'm attempting to return the date (in form '%Y-%m-%d') of the Monday >>> previous to the current date. For example: since it is 2011-09-02 today, >> I >>> would expect

Re: [R] previous monday date

2011-09-02 Thread Ben qant
Oh OK, missed that. Here is a solution using base: (already posted) I didn't sort out the issue in my email below but here is a (not very R'ish) solution: > pm = function(x) { + for(i in 1:7){ + if(format(as.Date(Sys.Date()- i),'%w') == 1){ + d = Sys.Date() - i; + } + } + d

Re: [R] previous monday date

2011-09-02 Thread Ben qant
I didn't sort out the issue in my email below but here is a (not very R'ish) solution: > pm = function(x) { + for(i in 1:7){ + if(format(as.Date(Sys.Date()-i),'%w') == 1){ + d = Sys.Date() - i; + } + } + d + } > pm(Sys.Date()) [1] "2011-08-29" On Fri, Sep 2, 2011 at 9:35 AM,

Re: [R] previous monday date

2011-09-02 Thread Marc Schwartz
On Sep 2, 2011, at 10:35 AM, Ben qant wrote: > Hello, > > I'm attempting to return the date (in form '%Y-%m-%d') of the Monday > previous to the current date. For example: since it is 2011-09-02 today, I > would expect 2011-08-29 to be the return value. > > I found the following in: > http://www

[R] previous monday date

2011-09-02 Thread Ben qant
Hello, I'm attempting to return the date (in form '%Y-%m-%d') of the Monday previous to the current date. For example: since it is 2011-09-02 today, I would expect 2011-08-29 to be the return value. I found the following in: http://www.mail-archive.com/r-help@r-project.org/msg144184.html Start q