holidays<-c(
"2005-01-01",
"2005-03-28",
"2005-05-03",
"2005-05-26",
"2005-08-15",
"2005-11-01",
"2005-11-11",
"2005-12-26",
"2006-04-17",
"2006-05-01",
"2006-05-03",
"2006-06-15",
"2006-08-15",
"2006-11-01",
"2006-11-11",
"2006-12-25",
"2006-12-26",
"2007-01-01",
"2007-04-09",
"2007-05-01",
"2007-05-03",
"2007-06-07",
"2007-08-15",
"2007-11-01",
"2007-12-25",
"2007-12-26",
"2008-01-01",
"2008-03-24",
"2008-05-01",
"2008-05-22",
"2008-08-15",
"2008-11-01",
"2008-11-11",
"2008-12-25",
"2008-12-26",
"2009-01-01",
"2009-04-13",
"2009-05-01",
"2009-06-11",
"2009-08-15",
"2009-11-11",
"2009-12-25",
"2009-12-26",
"2010-01-01",
"2010-04-05",
"2010-05-01",
"2010-05-03",
"2010-06-03",
"2010-11-01",
"2010-11-11",
"2010-12-25",
"2011-01-01",
"2011-01-06",
"2011-04-25",
"2011-05-03",
"2011-06-23",
"2011-08-15",
"2011-11-01",
"2011-11-11",
"2011-12-26",
"2012-01-01",
"2012-01-06",
"2012-04-09",
"2012-05-01",
"2012-05-03",
"2012-06-07",
"2012-08-15",
"2012-11-01",
"2012-12-25",
"2012-12-26",
"2013-01-01",
"2013-04-01",
"2013-05-01",
"2013-05-03",
"2013-05-30",
"2013-08-15",
"2013-11-01",
"2013-11-11",
"2013-12-25",
"2013-12-26",
"2014-01-01",
"2014-01-06",
"2014-04-21",
"2014-05-01",
"2014-05-03",
"2014-06-19",
"2014-08-15",
"2014-11-01",
"2014-11-11",
"2014-12-25",
"2014-12-26",
"2015-01-01",
"2015-01-06",
"2015-04-06",
"2015-05-01",
"2015-05-03",
"2015-06-04",
"2015-08-15",
"2015-11-01",
"2015-11-11",
"2015-12-25",
"2015-12-26",
"2016-01-01",
"2016-01-06",
"2016-03-28",
"2016-05-03",
"2016-05-26",
"2016-08-15",
"2016-11-01",
"2016-11-11",
"2016-12-26",
"2017-01-01",
"2017-01-06",
"2017-04-17",
"2017-05-01",
"2017-05-03",
"2017-06-15",
"2017-08-15",
"2017-11-01",
"2017-11-11",
"2017-12-25",
"2017-12-26",
"2018-01-01",
"2018-01-06",
"2018-04-02",
"2018-05-01",
"2018-05-03",
"2018-05-31",
"2018-08-15",
"2018-11-01",
"2018-12-25",
"2018-12-26"
)
pseudo_sobota<-c(
"2009-01-02",
"2009-04-10",
"2009-06-12",
"2009-12-24",
"2009-12-31",
"2010-04-02",
"2010-06-04",
"2010-11-12",
"2010-12-24",
"2010-12-31",
"2011-01-07",
"2011-04-22",
"2011-05-02",
"2011-06-24",
"2011-12-24",
"2011-12-31",
"2012-04-06",
"2012-04-30",
"2012-05-02",
"2012-05-04",
"2012-05-08",
"2012-11-02",
"2012-12-24",
"2012-12-31",
"2013-03-29",
"2013-05-02",
"2013-05-31",
"2013-12-24",
"2013-12-27",
"2013-12-31",
"2014-04-18",
"2014-05-02",
"2014-06-20",
"2014-11-10",
"2014-12-24",
"2014-12-31",
"2015-01-05",
"2015-04-03",
"2015-06-05",
"2015-12-24",
"2015-12-31",
"2016-03-25",
"2016-05-02",
"2016-05-27",
"2016-10-31",
"2017-04-14",
"2017-05-02",
"2017-06-16",
"2017-08-14",
"2018-03-30",
"2018-04-30",
"2018-05-02",
"2018-05-04",
"2018-06-01",
"2018-11-02",
"2018-12-24",
"2018-12-31"
)
holidays<-as.Date(holidays,"%Y-%m-%d")
pseudo_sobota<-as.Date(pseudo_sobota,"%Y-%m-%d")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.