removing memory size check for non-linux systems

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: restatapi
 Type: Package
 Title: Search and Retrieve Data from Eurostat Database
-Date: 2022-05-23
-Version: 0.13.2
+Date: 2022-06-01
+Version: 0.13.3
 Encoding: UTF-8
 Authors@R: person("Mátyás", "Mészáros", email = "[email protected]", role = c("aut", "cre"))
 Description: Eurostat is the statistical office of the European Union and provides high quality statistics for Europe.

NEWS.md

@@ -1,7 +1,11 @@
+# restatapi 0.13.3
+
+- removing memory size check for non-linux systems
+- CRAN release
+
 # restatapi 0.13.2
 
 - correction of tests as changes in the historical data for "avia_par_me" and "avia_par_is"
-- CRAN release
 
 # restatapi 0.13.1
 

R/load_cfg.R

@@ -83,9 +83,6 @@ load_cfg<-function(api_version="current",load_toc=FALSE,parallel=TRUE,max_cores=
 
 
   suppressWarnings(mem_size<-switch(Sys.info()[['sysname']],
-                   Windows={tryCatch({as.numeric(gsub("[^0-9]","",system("wmic MemoryChip get Capacity", intern = TRUE)[2]))/1024/1024},error=function(e){0},warning=function(w){0})},
-                   # Darwin={tryCatch({as.numeric(substring(system('system_profiler SPHardwareDataType | grep "  Memory:"', intern = TRUE), 13))},error=function(e){0},warning=function(w){0})},
-                   # SunOS={tryCatch({as.numeric(gsub("[^0-9]","",system("prtconf | grep Memory", intern = TRUE,ignore.stderr=TRUE)))},error=function(e){0},warning=function(w){0})},
                    Linux={tryCatch({as.numeric(system("awk '/MemTotal/ {print $2}' /proc/meminfo",intern=TRUE,ignore.stderr=TRUE))/1024},error=function(e){0},warning=function(w){0})}
                   ))
   if (is.null(mem_size)|length(mem_size)==0){mem_size<-0}

inst/tinytest/test_restatapi.R

@@ -29,16 +29,7 @@ testid12<-"ei_bsfs_q"
 testid13<-"avia_par_mk"
 
 
-# suppressWarnings(mem_size<-switch(Sys.info()[['sysname']],
-#                                   Windows={tryCatch({as.numeric(gsub("[^0-9]","",system("wmic MemoryChip get Capacity", intern = TRUE)[2]))/1024/1024},error=function(e){0},warning=function(w){0})},
-#                                   Darwin={tryCatch({as.numeric(substring(system('hwprefs memory_size', intern = TRUE), 13))},error=function(e){0},warning=function(w){0})},
-#                                   SunOS={tryCatch({as.numeric(gsub("[^0-9]","",system("prtconf | grep Memory", intern = TRUE,ignore.stderr=TRUE)))},error=function(e){0},warning=function(w){0})},
-#                                   Linux={tryCatch({as.numeric(system("awk '/MemTotal/ {print $2}' /proc/meminfo",intern=TRUE,ignore.stderr=TRUE))/1024},error=function(e){0},warning=function(w){0})}
-# ))
-# 
-# test_that("test mem_size",{
-#   expect_true(mem_size>1)
-# })
+
 
 t1<-system.time({xml_toc<-get_eurostat_toc(verbose=TRUE)})[3]
 txt_toc<-get_eurostat_toc(mode="txt")