Skip to content

Commit c903d3b

Browse files
eblondeleblondel
committed
fix #202 
1 parent e5e6281 commit c903d3b

10 files changed

+26
-26
lines changed

‎R/ISOExtent.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -46,7 +46,7 @@ ISOExtent <- R6Class("ISOExtent",
4646
#'@param element object of class \link{ISOGeographicExtent}
4747
#'@return \code{TRUE} if added, \code{FALSE} otherwise
4848
setGeographicElement = function(element){
49-
warning("Method 'setGeographicElemnt' is deprecated, please use 'addGeographicElement'!")
49+
warning("Method 'setGeographicElement' is deprecated, please use 'addGeographicElement'!")
5050
return(self$addGeographicElement(element))
5151
},
5252

‎tests/testthat/test_GMLConversion.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -97,7 +97,7 @@ test_that("encoding",{
9797
gml$setIdentifier("conversion", "codespace")
9898
extent <- ISOExtent$new()
9999
bbox <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90)
100-
extent$setGeographicElement(bbox)
100+
extent$addGeographicElement(bbox)
101101
gml$setDomainOfValidity(extent)
102102
gml$addScope("scope")
103103
xml <- gml$encode()

‎tests/testthat/test_ISODistribution.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -47,7 +47,7 @@ test_that("encoding",{
4747
ZH="protocol_ZH"
4848
))
4949
dto$addOnlineResource(or)
50-
md$setDigitalTransferOptions(dto)
50+
md$addDigitalTransferOptions(dto)
5151

5252
#format
5353
format <- ISOFormat$new()

‎tests/testthat/test_ISOFeatureCatalogue.R

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -229,9 +229,9 @@ test_that("encoding - i18n",{
229229
fat$setDefinition(
230230
sprintf("description %s",i),
231231
locales = list(
232-
EN = sprintf("the description 1",i),
233-
FR = sprintf("la description 1",i),
234-
ES = sprintf("la descripción 1",i),
232+
EN = sprintf("the description %s",i),
233+
FR = sprintf("la description %s",i),
234+
ES = sprintf("la descripción %s",i),
235235
AR = sprintf("%s الوصف)",i),
236236
RU = sprintf("описание %s",i),
237237
ZH = sprintf("描述 %s",i)

‎tests/testthat/test_ISOFeatureType.R

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -97,9 +97,9 @@ test_that("encoding",{
9797
fat$setDefinition(
9898
sprintf("description %s",i),
9999
locales = list(
100-
EN = sprintf("the description 1",i),
101-
FR = sprintf("la description 1",i),
102-
ES = sprintf("la descripción 1",i),
100+
EN = sprintf("the description %s",i),
101+
FR = sprintf("la description %s",i),
102+
ES = sprintf("la descripción %s",i),
103103
AR = sprintf("%s الوصف)",i),
104104
RU = sprintf("описание %s",i),
105105
ZH = sprintf("描述 %s",i)

‎tests/testthat/test_ISOImageryMetadata.R

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -59,10 +59,10 @@ test_that("encoding/decoding",{
5959
geomObject <- ISOGeometricObjects$new()
6060
geomObject$setGeometricObjectType("surface")
6161
geomObject$setGeometricObjectCount(5L)
62-
vsr$setGeometricObjects(geomObject)
62+
vsr$addGeometricObjects(geomObject)
6363
expect_true(md$addSpatialRepresentationInfo(vsr))
6464
expect_false(md$addSpatialRepresentationInfo(vsr))
65-
geomObject$addGeometricObjectCount(6L)
65+
geomObject$setGeometricObjectCount(6L)
6666
expect_true(md$delSpatialRepresentationInfo(vsr))
6767

6868
#ReferenceSystem

‎tests/testthat/test_ISOInheritanceRelation.R

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -52,9 +52,9 @@ test_that("encoding",{
5252
fat$setDefinition(
5353
sprintf("description %s",i),
5454
locales = list(
55-
EN = sprintf("the description 1",i),
56-
FR = sprintf("la description 1",i),
57-
ES = sprintf("la descripción 1",i),
55+
EN = sprintf("the description %s",i),
56+
FR = sprintf("la description %s",i),
57+
ES = sprintf("la descripción %s",i),
5858
AR = sprintf("%s الوصف)",i),
5959
RU = sprintf("описание %s",i),
6060
ZH = sprintf("描述 %s",i)
@@ -154,9 +154,9 @@ test_that("encoding",{
154154
fat$setDefinition(
155155
sprintf("description %s",i),
156156
locales = list(
157-
EN = sprintf("the description 1",i),
158-
FR = sprintf("la description 1",i),
159-
ES = sprintf("la descripción 1",i),
157+
EN = sprintf("the description %s",i),
158+
FR = sprintf("la description %s",i),
159+
ES = sprintf("la descripción %s",i),
160160
AR = sprintf("%s الوصف)",i),
161161
RU = sprintf("описание %s",i),
162162
ZH = sprintf("描述 %s",i)

‎tests/testthat/test_ISOLineage.R

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,7 @@ test_that("encoding",{
6262
src$setCitation(cit)
6363
extent <- ISOExtent$new()
6464
bbox <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90)
65-
extent$setGeographicElement(bbox)
65+
extent$addGeographicElement(bbox)
6666
src$addExtent(extent)
6767
lineage$addSource(src)
6868

@@ -180,7 +180,7 @@ test_that("encoding - i18n",{
180180

181181
extent <- ISOExtent$new()
182182
bbox <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90)
183-
extent$setGeographicElement(bbox)
183+
extent$addGeographicElement(bbox)
184184
src$addExtent(extent)
185185
lineage$addSource(src)
186186

‎tests/testthat/test_ISOMetadata.R

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -750,7 +750,7 @@ test_that("encoding/decoding - i18n",{
750750
ZH = "地图概述"
751751
)
752752
)
753-
ident$setGraphicOverview(go)
753+
ident$addGraphicOverview(go)
754754

755755
#maintenance information
756756
mi <- ISOMaintenanceInformation$new()
@@ -786,7 +786,7 @@ test_that("encoding/decoding - i18n",{
786786
expect_equal(length(lc$useLimitation), 2L)
787787
expect_equal(length(lc$accessConstraints), 2L)
788788
expect_equal(length(lc$useConstraints), 2L)
789-
ident$setResourceConstraints(lc)
789+
ident$addResourceConstraints(lc)
790790

791791
#adding extent
792792
extent <- ISOExtent$new()

‎tests/testthat/test_ISOServiceIdentification.R

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -301,7 +301,7 @@ test_that("encoding - i18n",{
301301
#maintenance information
302302
mi <- ISOMaintenanceInformation$new()
303303
mi$setMaintenanceFrequency("daily")
304-
md$setResourceMaintenance(mi)
304+
md$addResourceMaintenance(mi)
305305

306306
#adding legal constraints
307307
lc <- ISOLegalConstraints$new()
@@ -403,7 +403,7 @@ test_that("encoding",{
403403
#maintenance information
404404
mi <- ISOMaintenanceInformation$new()
405405
mi$setMaintenanceFrequency("daily")
406-
md$setResourceMaintenance(mi)
406+
md$addResourceMaintenance(mi)
407407

408408
#adding legal constraints
409409
lc <- ISOLegalConstraints$new()
@@ -443,7 +443,7 @@ test_that("encoding",{
443443
#adding extent
444444
extent <- ISOExtent$new()
445445
bbox <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90)
446-
extent$setGeographicElement(bbox)
446+
extent$addGeographicElement(bbox)
447447
md$addExtent(extent)
448448

449449
#coupling type
@@ -752,7 +752,7 @@ test_that("encoding - i18n",{
752752
#maintenance information
753753
mi <- ISOMaintenanceInformation$new()
754754
mi$setMaintenanceFrequency("daily")
755-
md$setResourceMaintenance(mi)
755+
md$addResourceMaintenance(mi)
756756

757757
#adding legal constraints
758758
lc <- ISOLegalConstraints$new()
@@ -863,7 +863,7 @@ test_that("encoding - i18n",{
863863
#adding extent
864864
extent <- ISOExtent$new()
865865
bbox <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90)
866-
extent$setGeographicElement(bbox)
866+
extent$addGeographicElement(bbox)
867867
md$addExtent(extent)
868868

869869
#coupling type

0 commit comments

Comments
 (0)