Merge pull request #2 from unhcr/gh-pages

Merge with UNHCR rep

DESCRIPTION

@@ -45,7 +45,11 @@ Depends:
     truncnorm,
     OpenRepGrid
 Suggests:
-    shiny
+    shiny,
+    testthat (>= 2.1.0),
+    utils
 URL: https://github.com/unhcr/koboloadeR
 BugReports: https://github.com/unhcr/koboloadeR/issues
 RoxygenNote: 6.1.1
+VignetteBuilder: utils
+

NAMESPACE

@@ -43,6 +43,7 @@ export(kobo_histo)
 export(kobo_histo_print)
 export(kobo_indicator)
 export(kobo_label)
+export(kobo_left_align)
 export(kobo_load_data)
 export(kobo_load_packages)
 export(kobo_map_cat)
@@ -65,6 +66,10 @@ export(kobo_time_parser_UTC)
 export(kobo_to_xlsform)
 export(kobo_trend)
 export(kobo_trend_report)
+export(kobo_unhcr_style_bar)
+export(kobo_unhcr_style_histo)
+export(kobo_unhcr_style_map)
+export(kobo_unhcr_style_scatter)
 export(kobo_weight)
 export(ltbl)
 export(multresponse)

R/kobo_anonymise.R

@@ -35,8 +35,6 @@
 #'
 #' @author Edouard Legoupil
 #'
-#' @examples
-#' kobo_anonymise()
 #'
 #' @export kobo_anonymise
 #'

R/kobo_get_theme.R

@@ -28,7 +28,7 @@
 #' @export kobo_get_theme
 #'
 
-kobo_get_theme <- function(form = "form.xls") {
+kobo_get_theme <- function() {
 
   themeList <- list()
 

R/kobo_left_align.R

@@ -0,0 +1,22 @@
+#' @name kobo_left_align
+#' @rdname kobo_left_align
+#' @title UNHCR ggplot2 theme
+#'
+#' @description Left align chart title and subtitle on a ggplot2
+#'
+#' @return Return better chart
+#'
+#' @author Edouard Legoupil - with inspiration from bbc
+#'
+#' @examples
+#' kobo_left_align()
+#'
+#' @export kobo_left_align
+#'
+
+kobo_left_align <- function(plot_name, pieces){
+  grob <- ggplot2::ggplotGrob(plot_name)
+  n <- length(pieces)
+  grob$layout$l[grob$layout$name %in% pieces] <- 2
+  return(grob)
+}