initial test

Author: yufree

.travis.yml

@@ -0,0 +1,16 @@
+language: r
+sudo: false
+latex: false
+pandoc: false
+cache: packages
+
+before_install:
+  - git config --global user.email "[email protected]"
+  - git config --global user.name "yufree"
+script:
+  - Rscript R/fetch.R
+
+after_success:
+  - git add --all *
+  - git commit -m "Daily update"
+  - git push -q https://${GITHUB_PAT}@github.com/${TRAVIS_REPO_SLUG}.git HEAD:master

DESCRIPTION

@@ -0,0 +1,4 @@
+Package: placeholder
+Title: DailyR
+Version: 0.0.1
+Remotes: yufree/scifetch

R/fetch.R

@@ -0,0 +1,36 @@
+dir.create('content/post', showWarnings = FALSE)
+d = Sys.Date()
+
+p = list.files('content/post/', '^\\d{4,}-\\d{2}-\\d{2}-\\d{1,}[.]md$')
+p = max(as.Date(gsub('-\\d{1,}.md$', '', p)))
+if (length(p) && d <= p && !interactive()) q('no')
+
+if (!file.exists(f <- 'R/list.txt')) writeLines('website, update', f)
+m = read.csv(f, colClasses = "character")
+d = as.character(d)
+x = NULL
+n = 0 
+
+for (i in 1:NROW(m)) {
+        a <- scifetch::getrss(m[i,1])
+        n <- sum(as.POSIXct(a$date[1:10])>as.POSIXct(m[i,2]))
+        if(n>0){
+                temp <- a[1:n,]
+                x <- rbind(temp,x)
+                ## update date
+                m[i,2] <- as.character(max(as.POSIXct(a$date[1:10])))
+        }
+}
+if(NROW(x)>0){
+        for (i in 1:NROW(x)){
+                p = sprintf('content/post/%s.md', paste0(d,'-',i))
+                sink(p)
+                cat('---\n')
+                cat(yaml::as.yaml(x[i,]))
+                cat('---\n')
+                sink()
+        }
+}
+
+
+write.csv(m[order(m$update), , drop = FALSE], f, row.names = FALSE)

R/list.txt

@@ -0,0 +1,4 @@
+"website","update"
+"feeds.feedburner.com/ProfessorRobJHyndman","2018-01-01"
+"simplystatistics.org/index.xml","2018-01-22"
+"yihui.name/index.xml","2018-01-26"

config.toml

@@ -1,6 +1,6 @@
 baseurl = "/"
 languageCode = "en-us"
-title = "Hugo XMag"
+title = "Daily R"
 theme = "hugo-xmag"
 googleAnalytics = ""
 disqusShortname = ""
@@ -11,9 +11,6 @@ hasCJKLanguage = true
 enableEmoji = true
 paginate = 6
 
-[permalinks]
-    post = "/post/:year/:month/:day/:slug/"
-
 [[menu.main]]
     name = "Home"
     url = "/"
@@ -22,14 +19,6 @@ paginate = 6
     name = "About"
     url = "/about/"
     weight = 2
-[[menu.main]]
-    name = "Categories"
-    url = "/categories/"
-    weight = 3
-[[menu.main]]
-    name = "Tags"
-    url = "/tags/"
-    weight = 4
 [[menu.main]]
     name = "Subscribe"
     url = "/index.xml"