changing examples in the functions.R

mihuzx · Sep 14, 2023 · a40c214 · a40c214
1 parent d66b1a3
commit a40c214
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 8 deletions.
diff --git a/.Rproj.user/02275A6F/pcs/source-pane.pper b/.Rproj.user/02275A6F/pcs/source-pane.pper
@@ -1,3 +1,3 @@
 {
-    "activeTab": 0
+    "activeTab": 2
 }
diff --git a/.Rproj.user/02275A6F/rmd-outputs b/.Rproj.user/02275A6F/rmd-outputs
@@ -1,6 +1,7 @@
 /var/folders/6g/3y4xtlkx5tdf56sf5l6ggy380000gn/T//Rtmp9Eezg7/preview-af449c30689.html
 /var/folders/6g/3y4xtlkx5tdf56sf5l6ggy380000gn/T//Rtmp9Eezg7/preview-ae36caac5e0.html
 /var/folders/6g/3y4xtlkx5tdf56sf5l6ggy380000gn/T//Rtmp5srXow/preview-c45d79ef9df7.html
+/var/folders/6g/3y4xtlkx5tdf56sf5l6ggy380000gn/T//RtmplnJ6g9/preview-11fe457c4e89.html
 
 
 

diff --git a/.Rproj.user/02275A6F/sources/prop/B14A132A b/.Rproj.user/02275A6F/sources/prop/B14A132A
@@ -2,6 +2,6 @@
     "tempName": "Untitled1",
     "source_window_id": "",
     "Source": "Source",
-    "cursorPosition": "51,25",
-    "scrollLine": "0"
+    "cursorPosition": "93,102",
+    "scrollLine": "84"
 }
diff --git a/R/functions.R b/R/functions.R
@@ -10,7 +10,7 @@
 #' @export
 #'
 #' @examples
-#' XML.to.ggPlantmap("arabidopsis.root.crossection.xml")
+#' XML.to.ggPlantmap("ggPm.sample.xml")
 XML.to.ggPlantmap <- function(data) {
   xml.ROI <- XML::xmlToList(data)
   final.ROI <- NULL
@@ -69,7 +69,7 @@ ggPlantmap.plot <- function(data,layer=ROI.name,linewidth=0.5,show.legend=T) {
 #' @export
 #'
 #' @examples
-#' ggPlantmap.merge(map=ggPm.At.seed.developmentalseries,value=ggPm.At.seed.expressionsample,id.x="ROI.name")
+#' ggPlantmap.merge(map=ggPm.At.seed.developmentalseries,value=ggPm.seed.expression.sample,id.x="ROI.name")
 ggPlantmap.merge <- function(map,value,id.x,id.y=id.x) {
   map %>%
     merge(value,by.x={{id.x}},by.y={{id.y}},all.x=T) %>%
@@ -90,9 +90,8 @@ ggPlantmap.merge <- function(map,value,id.x,id.y=id.x) {
 #' @export
 #'
 #' @examples
-#' quant.data <- ggPlantmap.merge(map=ggPm.At.seed.developmentalseries,value=ggPm.At.seed.expressionsample,id.x="ROI.name")
-#' ggPlantmap.heatmap(map.quant=quant.data,value.quant=gene.expression,linewdith=1,show.legend=T) +
-#' scale_fill_gradient(low="white",high="red")
+#' quant.data <- ggPlantmap.merge(map=ggPm.At.seed.developmentalseries,value=ggPm.seed.expression.sample,id.x="ROI.name")
+#' ggPlantmap.heatmap(map.quant=quant.data,value.quant=AT5G47670.expression,linewdith=1,show.legend=T)
 ggPlantmap.heatmap <- function(map.quant,value.quant=value.quant,show.legend=T,linewidth=0.5) {
   ggPlantmap <- map.quant
   ar <- (max(ggPlantmap$y) - min(ggPlantmap$y))/(max(ggPlantmap$x) - min(ggPlantmap$x)) ## recording the aspect ratio of the whole image to adjust it in the final plot.