docs

.Rbuildignore

@@ -4,4 +4,5 @@
 LICENSE
 README.md
 ^docs$
-_pkgdown.yml
+_pkgdown.yml
+^_pkgdown\.yml$

README.md

@@ -1,4 +1,5 @@
-# rr
+# Methods for analysing randomized response technique survey questions
+
 [![Travis-CI Build Status](https://travis-ci.org/SensitiveQuestions/rr.svg?branch=master)](https://travis-ci.org/SensitiveQuestions/rr) [![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/rr)](https://cran.r-project.org/package=rr) [![CRAN downloads](https://cranlogs.r-pkg.org/badges/grand-total/rr)
 
-R package rr
+Enables researchers to conduct multivariate statistical analyses of survey data with randomized response technique items from several designs, including mirrored question, forced question, and unrelated question. This includes regression with the randomized response as the outcome and logistic regression with the randomized response item as a predictor. In addition, tools for conducting power analysis for designing randomized response items are included. The package implements methods described in Blair, Imai, and Zhou (2015) ''Design and Analysis of the Randomized Response Technique,'' Journal of the American Statistical Association  <http://graemeblair.com/papers/randresp.pdf>.

docs/pkgdown.css

@@ -34,6 +34,10 @@ img.icon {
   float: right;
 }
 
+img {
+  max-width: 100%;
+}
+
 /* Section anchors ---------------------------------*/
 
 a.anchor {
@@ -133,9 +137,14 @@ pre, code {
   color: #333;
 }
 
-pre img {
+pre .img {
+  margin: 5px 0;
+}
+
+pre .img img {
   background-color: #fff;
   display: block;
+  height: auto;
 }
 
 code a, pre a {

docs/pkgdown.js

@@ -5,4 +5,41 @@ $(function() {
     offset: 60
   });
 
+  var cur_path = paths(location.pathname);
+  $("#navbar ul li a").each(function(index, value) {
+    if (value.text == "Home")
+      return;
+    if (value.getAttribute("href") === "#")
+      return;
+
+    var path = paths(value.pathname);
+    if (is_prefix(cur_path, path)) {
+      // Add class to parent <li>, and enclosing <li> if in dropdown
+      var menu_anchor = $(value);
+      menu_anchor.parent().addClass("active");
+      menu_anchor.closest("li.dropdown").addClass("active");
+    }
+  });
 });
+
+function paths(pathname) {
+  var pieces = pathname.split("/");
+  pieces.shift(); // always starts with /
+
+  var end = pieces[pieces.length - 1];
+  if (end === "index.html" || end === "")
+    pieces.pop();
+  return(pieces);
+}
+
+function is_prefix(needle, haystack) {
+  if (needle.length > haystack.lengh)
+    return(false);
+
+  for (var i = 0; i < haystack.length; i++) {
+    if (needle[i] != haystack[i])
+      return(false);
+  }
+
+  return(true);
+}