add theme function

NAMESPACE

@@ -1,5 +1,7 @@
-# Generated by roxygen2: do not edit by hand
+# Generated by roxygen2 (4.1.1): do not edit by hand
 
+S3method("+",wordcloud2)
+export(WCtheme)
 export(letterCloud)
 export(renderWordcloud2)
 export(wordcloud2)

R/plot-construction.R

@@ -0,0 +1,32 @@
+##' Change the themes of wordcloud2
+##'
+##' @description
+##' Function for Creating wordcloud theme
+##'
+##'
+##' @param e1  wordcloud2 object
+##' @param e2  wordcloud2 themes
+##' @export
+##' @method + wordcloud2
+##' @examples
+##' wc = wordcloud2(demoFreq)
+##'
+##' wc + WCtheme(1)
+##' wc + WCtheme(2)
+##' wc + WCtheme(3)
+##' wc + WCtheme(2) + WCtheme(3)
+`+.wordcloud2` = function(e1, e2){
+  if(e2$class == 1){
+    e1$x$minRotation = -pi/2
+    e1$x$maxRotation = -pi/2
+  }else if (e2$class ==2){
+    e1$x$minRotation = -pi/6
+    e1$x$maxRotation = -pi/6
+    e1$x$rotateRatio = 1
+  }else if (e2$class == 3){
+    e1$x$color = "random-light"
+    e1$x$backgroundColor = "grey"
+  }
+  return(e1)
+}
+

R/theme.R

@@ -0,0 +1,37 @@
+##' Change the themes of wordcloud2
+##'
+##' @description
+##' Function for Creating wordcloud theme
+##'
+##' @usage
+##' WCtheme(class = 1)
+##'
+##' @param class  class for theme in wordcloud2
+##'
+##' @export
+##' @examples
+##' wc = wordcloud2(demoFreq)
+##'
+##' wc + WCtheme(1)
+##' wc + WCtheme(2)
+##' wc + WCtheme(3)
+##' wc + WCtheme(2) + WCtheme(3)
+
+WCtheme = function(class = 1){
+  if(class == 1){
+    return(list(class =1,
+                minRotation = -pi/2,
+                maxRotation = -pi/2))
+  }else if (class ==2){
+    return(list(class =2,
+                minRotation = -pi/6,
+                maxRotation = -pi/6,
+                rotateRatio = 1))
+  }else if (class == 3| class=='Dark'){
+    return(list(class =3,
+                color = "random-light",
+                backgroundColor = "grey"))
+  }else{
+    stop("Out of themes~")
+  }
+}

man/WCtheme.Rd

@@ -0,0 +1,23 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/theme.R
+\name{WCtheme}
+\alias{WCtheme}
+\title{Change the themes of wordcloud2}
+\usage{
+WCtheme(class = 1)
+}
+\arguments{
+\item{class}{class for theme in wordcloud2}
+}
+\description{
+Function for Creating wordcloud theme
+}
+\examples{
+wc = wordcloud2(demoFreq)
+
+wc + WCtheme(1)
+wc + WCtheme(2)
+wc + WCtheme(3)
+wc + WCtheme(2) + WCtheme(3)
+}
+

man/demoFreq.Rd

@@ -1,4 +1,4 @@
-% Generated by roxygen2: do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/data-definitions.R
 \docType{data}
 \name{demoFreq}

man/demoFreqC.Rd

@@ -1,4 +1,4 @@
-% Generated by roxygen2: do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/data-definitions.R
 \docType{data}
 \name{demoFreqC}

man/letterCloud.Rd

@@ -1,4 +1,4 @@
-% Generated by roxygen2: do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/letterCloud.R
 \name{letterCloud}
 \alias{letterCloud}

man/plus-.wordcloud2.Rd

@@ -0,0 +1,25 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/plot-construction.R
+\name{+.wordcloud2}
+\alias{+.wordcloud2}
+\title{Change the themes of wordcloud2}
+\usage{
+\method{+}{wordcloud2}(e1, e2)
+}
+\arguments{
+\item{e1}{wordcloud2 object}
+
+\item{e2}{wordcloud2 themes}
+}
+\description{
+Function for Creating wordcloud theme
+}
+\examples{
+wc = wordcloud2(demoFreq)
+
+wc + WCtheme(1)
+wc + WCtheme(2)
+wc + WCtheme(3)
+wc + WCtheme(2) + WCtheme(3)
+}
+

man/wordcloud2-shiny.Rd

@@ -1,4 +1,4 @@
-% Generated by roxygen2: do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/renderWordcloud2.R
 \name{wordcloud2-shiny}
 \alias{renderWordcloud2}
@@ -16,7 +16,7 @@ renderWordcloud2(expr, env = parent.frame(), quoted = FALSE)
 \arguments{
 \item{outputId}{output variable to read from}
 
-\item{width, height}{Must be a valid CSS unit (like \code{"100\%"},
+\item{width,height}{Must be a valid CSS unit (like \code{"100\%"},
 \code{"400px"}, \code{"auto"}) or a number, which will be coerced to a
 string and have \code{"px"} appended.}
 
@@ -25,7 +25,7 @@ string and have \code{"px"} appended.}
 \item{env}{The environment in which to evaluate \code{expr}.}
 
 \item{quoted}{Is \code{expr} a quoted expression (with \code{quote()})? This
-is useful if you want to save an expression in a variable.}
+  is useful if you want to save an expression in a variable.}
 }
 \description{
 Function for plotting wordcloud2 in shiny
@@ -34,3 +34,4 @@ Function for plotting wordcloud2 in shiny
 Use renderWordcloud2 to render an wordcloud2 object and use wordcloud2Output
 output an wordcloud2 object. See more details in shiny package.
 }
+

man/wordcloud2.Rd

@@ -1,4 +1,4 @@
-% Generated by roxygen2: do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/wordcloud2.R
 \name{wordcloud2}
 \alias{wordcloud2}