Merge remote-tracking branch 'upstream/master'

[arvados.git] / doc / Rakefile

diff --git a/doc/Rakefile b/doc/Rakefile
index eaa5410100992dfc8bc4482e2b6974d54b0ff8a0..855b829855b4abb29a7bd2ebf762b67d3eaeebdb 100644 (file)
--- a/doc/Rakefile
+++ b/doc/Rakefile
@@ -28,11 +28,60 @@ end
 file "sdk/R/arvados/index.html" do |t|
   `which R`
   if $? == 0
+    tgt = Dir.pwd
+    Dir.mkdir("sdk/R")
+    Dir.mkdir("sdk/R/arvados")
+    docfiles = []
     Dir.chdir("../sdk/R/") do
-      STDERR.puts `R --quiet --vanilla -e 'pkgdown::build_site()' 2>&1`
+      STDERR.puts `Rscript createDoc.R README.Rmd #{tgt}/sdk/R/README.md 2>&1`
+      Dir.entries("man").each do |rd|
+        if rd[-3..-1] == ".Rd"
+          htmlfile = "#{rd[0..-4]}.html"
+          `R CMD Rdconv -t html man/#{rd} > #{tgt}/sdk/R/arvados/#{htmlfile}`
+          docfiles << htmlfile
+        end
+      end
     end
     raise if $? != 0
-    cp_r("../sdk/R/docs", "sdk/R/arvados")
+
+    File.open("sdk/R/README.md", "r") do |rd|
+    File.open("sdk/R/index.html.md", "w") do |fn|
+      fn.write(<<-EOF
+---
+layout: default
+navsection: sdk
+navmenu: R
+title: "R SDK Overview"
+...
+
+#{rd.read.gsub("```", "\n~~~\n").gsub(/^[ ]+/, "")}
+EOF
+              )
+      end
+    end
+
+    File.open("sdk/R/arvados/index.html.textile.liquid", "w") do |fn|
+      fn.write(<<-EOF
+---
+layout: default
+navsection: sdk
+navmenu: R
+title: "R Reference"
+...
+{% comment %}
+Copyright (C) The Arvados Authors. All rights reserved.
+
+SPDX-License-Identifier: CC-BY-SA-3.0
+{% endcomment %}
+
+EOF
+              )
+
+      docfiles.sort.each do |d|
+        fn.write("* \"#{d[0..-6]}\":#{d}\n")
+      end
+
+    end
   else
     puts "Warning: R not found, R documentation will not be generated".colorize(:light_red)
   end
@@ -51,8 +100,7 @@ end
 
 task :clean do
   rm_rf "sdk/python/arvados"
-  rm_rf "sdk/R/arvados"
-  rm_rf "../sdk/R/docs"
+  rm_rf "sdk/R"
 end
 
 require "zenweb/tasks"