plot_raw update

NEWS.md

@@ -4,6 +4,7 @@
   - `figure2rmd()`
   - `table2rmd()` 
   - `gdocs2rmd()`
+ - Fix `plot_raw()`: "length(x) = 2 > 1' in coercion to 'logical(1)"
 
 # inti 0.5.6
 

R/plot_raw.R

@@ -53,9 +53,10 @@
 #'            
 #' fb %>%
 #'   plot_raw(type = "sca"
-#'            , x = "hi"
+#'            , x = "geno"
 #'            , y = "twue"
-#'            , group = ""
+#'            , group = "treat"
+#'            , color = c("red", "blue")
 #'            ) 
 #'            
 #' }
@@ -127,8 +128,8 @@ if(!c(y %in% colnames(data))) stop("colum no exist")
 
   opt <- if(is.null(opt) || is.na(opt) || opt == "") {NULL} else {opt}
 
-  color <- if(is.null(color) || is.na(color) || color == "" || color == "yes") {
-    TRUE} else if (color == "no") {FALSE} else {color}
+  color <- if(length(color) <= 1 && (is.null(color) || is.na(color) || color == "" || color == "yes")) {
+    TRUE} else {color}
 
   ylimits <- if(any(is.null(ylimits)) || any(is.na(ylimits)) || any(ylimits == "")) { 
     NULL
@@ -139,15 +140,15 @@ if(!c(y %in% colnames(data))) stop("colum no exist")
       unlist() %>% as.numeric()
   } else {ylimits}
 
-  xtext <- if(is.null(xtext) || is.na(xtext) || xtext == "") {
+  xtext <- if(length(xtext) <= 1 && (is.null(xtext) || is.na(xtext) || xtext == "")) {
     NULL} else if (is.character(xtext)){ 
       xtext %>%
         strsplit(., ",") %>%
         unlist() %>% 
         base::trimws()
     } else {xtext}
 
-  gtext <- if(is.null(gtext) || is.na(gtext) || gtext == "") {
+  gtext <- if (length(gtext) <= 1 && (is.null(gtext) || is.na(gtext) || gtext == "")) {
     NULL} else if (is.character(gtext)){ 
       gtext %>%
         strsplit(., ",") %>%

inst/yupana/rsconnect/shinyapps.io/flavjack/yupana.dcf

@@ -5,9 +5,9 @@ account: flavjack
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 357871
-bundleId: 5923320
+bundleId: 5931320
 url: https://flavjack.shinyapps.io/yupana/
-when: 1652971133.1596
-lastSyncTime: 1652971133.15961
+when: 1653190943.78602
+lastSyncTime: 1653190943.78605
 asMultiple: FALSE
 asStatic: FALSE