correction of tests

DESCRIPTION

@@ -2,7 +2,7 @@ Package: restatapi
 Type: Package
 Title: Search and Retrieve Data from Eurostat Database
 Date: 2025-01-27
-Version: 0.24.1
+Version: 0.24.2
 Encoding: UTF-8
 Authors@R: c(person("Mátyás", "Mészáros", email = "[email protected]", role = c("aut", "cre")),
             person("Sebastian", "Weinand", role = "ctb"))

NEWS.md

@@ -1,7 +1,11 @@
+# restatapi 0.24.2
+
+- correction of test because of the changed Table of Content
+
 # restatapi 0.24.1
 
 - correction of outdated URLs and documentation
-- - CRAN release
+- CRAN release
 
 # restatapi 0.24.0
 

inst/tinytest/test_restatapi.R

@@ -110,13 +110,13 @@ if (!is.null(dt1)&is.data.frame(dt1)&!is.null(dt2)&is.data.frame(dt2)){
 } else {not_checked<-paste(not_checked,"18-21",sep=",")}
 
 if (!is.null(xml_toc)){
-  testid3<-xml_toc$code[xml_toc$values==min(xml_toc$values)][1]
+  testid3<-xml_toc$code[xml_toc$values==min(xml_toc$values[xml_toc$values>10])][1]
   if (!is.na(testid3)){
-    expect_equal(nrow(get_eurostat_raw(testid3,verbose=FALSE)),min(xml_toc$values)) # 22
-    expect_equal(nrow(get_eurostat_raw(testid3,check_toc=TRUE,verbose=FALSE)),min(xml_toc$values)) # 23
+    expect_equal(nrow(get_eurostat_raw(testid3,verbose=FALSE)),min(xml_toc$values[xml_toc$values>10])) # 22
+    expect_equal(nrow(get_eurostat_raw(testid3,check_toc=TRUE,verbose=FALSE)),min(xml_toc$values[xml_toc$values>10])) # 23
     expect_message(bt1<-get_eurostat_bulk("blabla",check_toc=TRUE,verbose=FALSE)) # 24
     expect_equal(bt1,NULL) # 25
-    expect_equal(nrow(get_eurostat_data(testid3,verbose=FALSE)),min(xml_toc$values)) # 26
+    expect_equal(nrow(get_eurostat_data(testid3,verbose=FALSE)),min(xml_toc$values[xml_toc$values>10])) # 26
   }  else {not_checked<-paste(not_checked,"22-26",sep=",")}
   testid3<-xml_toc$code[is.na(xml_toc$values)&is.na(xml_toc$lastUpdate)&is.na(xml_toc$downloadLink.tsv)][1]
   # testid3<-xml_toc$code[(xml_toc$shortDescription=="")&is.na(xml_toc$metadata.html)&is.na(xml_toc$metadata.sdmx)][1]