Merge pull request #52 from neilstats/fix

fix bug with ggtitle

Author: neilstats

DESCRIPTION

@@ -3,7 +3,7 @@ Title: Create CKB Plots
 Description: ckbplotr provides functions to help create and style plots in R.
     It is being developed by, and primarily for, China Kadoorie Biobank 
     researchers.
-Version: 0.6.0
+Version: 0.6.1
 Authors@R: 
     person(given = "Neil",
            family = "Wright",

R/make_shape_plot.R

@@ -369,8 +369,12 @@ make_shape_plot <- function(data,
   codetext$titles <- c(
     '# Add titles',
     sprintf('xlab("%s") +', xlab),
-    sprintf('ylab("%s")', ylab),
-    sprintf('+ ggtitle("%s")', title),
+    if (!is.null(title) && !title %in% c("", NA)){
+      c(sprintf('ylab("%s") +', ylab),
+        sprintf('ggtitle("%s")', title))
+    } else {
+      sprintf('ylab("%s")', ylab)
+    },
     ''
   )