Generate alternate saturday dates list within range in R












0












$begingroup$


library(tidyr)
d = seq(as.Date("2018-01-01"),Sys.Date()+365,by='day')
saturdayList = d[weekdays(d)=='Saturday']

altSaturdayList = data.frame(lapply(split(saturdayList, format(saturdayList, "%Y-%m")), function(x)
na.omit(x[c(2,4)])))

altSaturdayList = subset(gather(altSaturdayList),select = c(value))
HolidayList = rbind(HolidayList, setNames(altSaturdayList, "Holidays"))
HolidayList = rbind(HolidayList, setNames(as.data.frame(as.Date("2018-11-06")), "Holidays"))
HolidayList = arrange(unique(HolidayList),Holidays)

rm(d)
rm(saturdayList)
rm(altSaturdayList)


The above code generates a list of dates which contain 2nd and 4th saturday of every month within that date range.



As you can tell I have generated and deleted intermediate variables like d, saturdayList and altSaturdayList. I was wondering how I can make this code better and efficient?



I learned about %>% operator but I don't know how I can do it with no input.



Any tips to improve the code is welcomed. Thanks










share|improve this question







New contributor




newguy is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$

















    0












    $begingroup$


    library(tidyr)
    d = seq(as.Date("2018-01-01"),Sys.Date()+365,by='day')
    saturdayList = d[weekdays(d)=='Saturday']

    altSaturdayList = data.frame(lapply(split(saturdayList, format(saturdayList, "%Y-%m")), function(x)
    na.omit(x[c(2,4)])))

    altSaturdayList = subset(gather(altSaturdayList),select = c(value))
    HolidayList = rbind(HolidayList, setNames(altSaturdayList, "Holidays"))
    HolidayList = rbind(HolidayList, setNames(as.data.frame(as.Date("2018-11-06")), "Holidays"))
    HolidayList = arrange(unique(HolidayList),Holidays)

    rm(d)
    rm(saturdayList)
    rm(altSaturdayList)


    The above code generates a list of dates which contain 2nd and 4th saturday of every month within that date range.



    As you can tell I have generated and deleted intermediate variables like d, saturdayList and altSaturdayList. I was wondering how I can make this code better and efficient?



    I learned about %>% operator but I don't know how I can do it with no input.



    Any tips to improve the code is welcomed. Thanks










    share|improve this question







    New contributor




    newguy is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
    Check out our Code of Conduct.







    $endgroup$















      0












      0








      0





      $begingroup$


      library(tidyr)
      d = seq(as.Date("2018-01-01"),Sys.Date()+365,by='day')
      saturdayList = d[weekdays(d)=='Saturday']

      altSaturdayList = data.frame(lapply(split(saturdayList, format(saturdayList, "%Y-%m")), function(x)
      na.omit(x[c(2,4)])))

      altSaturdayList = subset(gather(altSaturdayList),select = c(value))
      HolidayList = rbind(HolidayList, setNames(altSaturdayList, "Holidays"))
      HolidayList = rbind(HolidayList, setNames(as.data.frame(as.Date("2018-11-06")), "Holidays"))
      HolidayList = arrange(unique(HolidayList),Holidays)

      rm(d)
      rm(saturdayList)
      rm(altSaturdayList)


      The above code generates a list of dates which contain 2nd and 4th saturday of every month within that date range.



      As you can tell I have generated and deleted intermediate variables like d, saturdayList and altSaturdayList. I was wondering how I can make this code better and efficient?



      I learned about %>% operator but I don't know how I can do it with no input.



      Any tips to improve the code is welcomed. Thanks










      share|improve this question







      New contributor




      newguy is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.







      $endgroup$




      library(tidyr)
      d = seq(as.Date("2018-01-01"),Sys.Date()+365,by='day')
      saturdayList = d[weekdays(d)=='Saturday']

      altSaturdayList = data.frame(lapply(split(saturdayList, format(saturdayList, "%Y-%m")), function(x)
      na.omit(x[c(2,4)])))

      altSaturdayList = subset(gather(altSaturdayList),select = c(value))
      HolidayList = rbind(HolidayList, setNames(altSaturdayList, "Holidays"))
      HolidayList = rbind(HolidayList, setNames(as.data.frame(as.Date("2018-11-06")), "Holidays"))
      HolidayList = arrange(unique(HolidayList),Holidays)

      rm(d)
      rm(saturdayList)
      rm(altSaturdayList)


      The above code generates a list of dates which contain 2nd and 4th saturday of every month within that date range.



      As you can tell I have generated and deleted intermediate variables like d, saturdayList and altSaturdayList. I was wondering how I can make this code better and efficient?



      I learned about %>% operator but I don't know how I can do it with no input.



      Any tips to improve the code is welcomed. Thanks







      memory-management r






      share|improve this question







      New contributor




      newguy is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.











      share|improve this question







      New contributor




      newguy is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      share|improve this question




      share|improve this question






      New contributor




      newguy is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      asked 31 mins ago









      newguynewguy

      1012




      1012




      New contributor




      newguy is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.





      New contributor





      newguy is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.






      newguy is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.






















          0






          active

          oldest

          votes











          Your Answer





          StackExchange.ifUsing("editor", function () {
          return StackExchange.using("mathjaxEditing", function () {
          StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
          StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["\$", "\$"]]);
          });
          });
          }, "mathjax-editing");

          StackExchange.ifUsing("editor", function () {
          StackExchange.using("externalEditor", function () {
          StackExchange.using("snippets", function () {
          StackExchange.snippets.init();
          });
          });
          }, "code-snippets");

          StackExchange.ready(function() {
          var channelOptions = {
          tags: "".split(" "),
          id: "196"
          };
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function() {
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled) {
          StackExchange.using("snippets", function() {
          createEditor();
          });
          }
          else {
          createEditor();
          }
          });

          function createEditor() {
          StackExchange.prepareEditor({
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: false,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: null,
          bindNavPrevention: true,
          postfix: "",
          imageUploader: {
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          },
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          });


          }
          });






          newguy is a new contributor. Be nice, and check out our Code of Conduct.










          draft saved

          draft discarded


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodereview.stackexchange.com%2fquestions%2f216092%2fgenerate-alternate-saturday-dates-list-within-range-in-r%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          0






          active

          oldest

          votes








          0






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes








          newguy is a new contributor. Be nice, and check out our Code of Conduct.










          draft saved

          draft discarded


















          newguy is a new contributor. Be nice, and check out our Code of Conduct.













          newguy is a new contributor. Be nice, and check out our Code of Conduct.












          newguy is a new contributor. Be nice, and check out our Code of Conduct.
















          Thanks for contributing an answer to Code Review Stack Exchange!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          Use MathJax to format equations. MathJax reference.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodereview.stackexchange.com%2fquestions%2f216092%2fgenerate-alternate-saturday-dates-list-within-range-in-r%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Сан-Квентин

          Алькесар

          Josef Freinademetz