package site

_pkgdown.yml

@@ -9,6 +9,14 @@ navbar:
     - text: "Function Reference"
       icon:   fa-info-circle
       href: reference/index.html
+    - text: "Vignettes"
+      icon:  fa-book
+      href: articles/index.html
+      menu:
+        - text: "Cluster analysis in OpenBudget.eu"
+          href: articles/ClusterOBeu.html
+        - text: "Using Cluster.OBeu with OpenCPU"
+          href: articles/Cluster.OBeuOpenCPU.html
     - text: "News"
       icon: fa-newspaper-o
       href: news/index.html

docs/articles/Cluster.OBeuOpenCPU.R

@@ -0,0 +1,7 @@
+## ---- eval=FALSE, include=TRUE-------------------------------------------
+#   ../library/ {name of the library} /R/ {function}
+
+## ---- eval=FALSE, include=TRUE-------------------------------------------
+#  ../library/Cluster.OBeu/R/cl.analysis
+#  # library/ {name of the library} /R/ {function}
+

docs/articles/ClusterOBeu.R

@@ -0,0 +1,22 @@
+## ----load, warning=FALSE, include=TRUE-----------------------------------
+# load Cluster.OBeu
+library(Cluster.OBeu)
+
+## ----data----------------------------------------------------------------
+aragon_income = "https://apps.openbudgets.eu//api/3/cubes/aragon-2007-income__3209b/aggregate?drilldown=fundingClassification.prefLabel%7CeconomicClassification.prefLabel&aggregates=amount.sum"
+
+## ----open_spending,  eval=FALSE, include=TRUE----------------------------
+#  results = open_spending.cl(
+#    json_data =  aragon_income,
+#    dimensions ="economicClassification.prefLabel",
+#    amounts = "amount.sum",
+#    measured.dimensions = "fundingClassification.prefLabel",
+#    cl.method="kmeans"
+#    )
+#  # Pretty output using prettify of jsonlite library
+#  jsonlite::prettify(results)
+
+## ---- eval=FALSE, include=TRUE-------------------------------------------
+#  ../library/Cluster.OBeu/R/open_spending.cl
+#  # library/ {name of the library} /R/ {function}
+