xushuangbin authored on 10/07/2024 12:38:39
Showing 2 changed files

... ...
@@ -56,7 +56,7 @@ setMethod('imgData', 'SVPExperiment', function(x){
56 56
     return(x)    
57 57
 })
58 58
 
59
-#' @rdname SVP-setters
59
+#' @rdname SVP-accessors
60 60
 #' @importFrom S4Vectors isEmpty
61 61
 #' @exportMethod imgData<-
62 62
 setReplaceMethod('imgData', c('SVPExperiment', "DataFrame"), function(x, value){
... ...
@@ -73,7 +73,7 @@ setReplaceMethod('imgData', c('SVPExperiment', "DataFrame"), function(x, value){
73 73
     return(x)
74 74
 })
75 75
 
76
-#' @rdname SVP-setters
76
+#' @rdname SVP-accessors
77 77
 #' @exportMethod imgData<-
78 78
 setReplaceMethod('imgData', c("SVPExperiment", "NULL"), function(x, value){
79 79
     flag <- .check_element_obj(x, key='imgData', basefun = int_metadata, namefun = names)
... ...
@@ -84,7 +84,7 @@ setReplaceMethod('imgData', c("SVPExperiment", "NULL"), function(x, value){
84 84
     return(x)
85 85
 })
86 86
 
87
-#' @rdname SVP-setters
87
+#' @rdname SVP-accessors
88 88
 #' @aliases spatialCoords<-,SVPExperiment
89 89
 #' @exportMethod spatialCoords<-
90 90
 setReplaceMethod("spatialCoords", c("SVPExperiment", "matrix_Or_NULL"), function(x, value){
... ...
@@ -112,7 +112,7 @@ setReplaceMethod("spatialCoords", c("SVPExperiment", "matrix_Or_NULL"), function
112 112
 })
113 113
 
114 114
 
115
-#' @rdname SVP-setters
115
+#' @rdname SVP-accessors
116 116
 #' @importFrom SpatialExperiment spatialCoordsNames<-
117 117
 #' @exportMethod spatialCoordsNames<-
118 118
 setReplaceMethod("spatialCoordsNames", c('SVPExperiment', 'character'),
... ...
@@ -9,6 +9,8 @@
9 9
 \alias{spatialCoordsNames<-,SVPExperiment,character-method}
10 10
 \alias{imgData<-,SVPExperiment,DataFrame-method}
11 11
 \alias{imgData<-,SVPExperiment,NULL-method}
12
+\alias{spatialCoords<-,SVPExperiment,matrix_Or_NULL-method}
13
+\alias{spatialCoords<-,SVPExperiment}
12 14
 \title{Some accessor funtions to get the internal slots of SVPExperiment}
13 15
 \usage{
14 16
 \S4method{spatialCoords}{SVPExperiment}(x)
... ...
@@ -17,15 +19,23 @@
17 19
 
18 20
 \S4method{imgData}{SVPExperiment}(x)
19 21
 
22
+\S4method{imgData}{SVPExperiment,DataFrame}(x) <- value
23
+
24
+\S4method{imgData}{SVPExperiment,NULL}(x) <- value
25
+
26
+\S4method{spatialCoords}{SVPExperiment,matrix_Or_NULL}(x) <- value
27
+
28
+\S4method{spatialCoordsNames}{SVPExperiment,character}(x) <- value
29
+
20 30
 \S4method{show}{SVPExperiment}(object)
21 31
 }
22 32
 \arguments{
23 33
 \item{x}{a \linkS4class{SVPExperiment} class.}
24 34
 
25
-\item{object}{a \linkS4class{SVPExperiment} class.}
26
-
27 35
 \item{value}{matrix for \code{spatialCoords(object) <- value}
28 36
 character for \code{spatialCoordsNames(object) <- value}.}
37
+
38
+\item{object}{a \linkS4class{SVPExperiment} class.}
29 39
 }
30 40
 \value{
31 41
 matrix or character or print the information of object