Running ‘testthat.R’ [46s/50s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(windfarmGA)
  > 
  > 
  > test_check("windfarmGA")
  ...$Input_Data
                         [,1]                                                                                                                 
  Rotorradius            "30"                                                                                                                 
  Number of turbines     "20"                                                                                                                 
  Grid Shape Factor      "5"                                                                                                                  
  Iterations             "1"                                                                                                                  
  Mutation Rate          "0.008"                                                                                                              
  Percentage of Polygon  "1"                                                                                                                  
  Topographie            "FALSE"                                                                                                              
  Elitarism              "TRUE"                                                                                                               
  Selection Method       "FIX"                                                                                                                
  Trim Force Method Used "FALSE"                                                                                                              
  Crossover Method Used  "EQU"                                                                                                                
  Reference Height       "100"                                                                                                                
  Rotor Height           "100"                                                                                                                
  Resolution             "150"                                                                                                                
  Parallel Processing    "FALSE"                                                                                                              
  Number Clusters        "1"                                                                                                                  
  Active Weibull         "FALSE"                                                                                                              
  Grid Method            "Rectangular"                                                                                                        
  Projection             "+proj=laea +lat_0=52 +lon_0=10 +x_0=4321000 +y_0=3210000\n    +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"
  
  $Windspeed_Data
    ws wd
  1 12  0
  
  Topography and orography are not taken into account.
  Start Genetic Algorithm ...
  
   1 : Round with coefficients  31794.854 28062.112 23249.335 31794.85 28062.11 23249.33 89.58 79.07 65.51 
  How many individuals exist:  300 
  How many parks are in local Optimum:  1 
  Elitarism activated. Best 7 individuals are increased
  Selection Percentage: 50 
  FIX: How many parental individuals are selected: 148 from 296 with 50 %
  Selection  -  Amount of Individuals:  100 
  crossover point rate:  2.1
  How many parental pairs are at hand:  50
  How many permutations are possible:  200
  How many permutations are selected:  200 
  Crossover  -  Amount of Individuals:  200
  Mutation   -  Amount of Individuals:  200
  TrimToN    -  Amount of Individuals:  200........[inverse distance weighted interpolation]
  ── 1. Error: Test Plotting Functions (@test_plots.R#138)  ──────────────────────
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
  1: heatmapGA(resultrect) at testthat/test_plots.R:138
  2: print(plot1)
  3: print.ggplot(plot1)
  4: ggplot_gtable(data)
  5: ggplot_gtable.ggplot_built(data)
  6: build_guides(plot$scales, plot$layers, plot$mapping, position, theme, plot$guides, 
         plot$labels)
  7: guides_gengrob(gdefs, theme)
  8: lapply(gdefs, guide_gengrob, theme)
  9: FUN(X[[i]], ...)
  10: guide_gengrob.colorbar(X[[i]], ...)
  ...
  17: pushvpgp(x)
  18: pushgrobvp(x$vp)
  19: pushgrobvp.viewport(x$vp)
  20: pushViewport(vp, recording = FALSE)
  21: lapply(vps, push.vp, recording)
  22: FUN(X[[i]], ...)
  23: push.vp.vpTree(X[[i]], ...)
  24: push.vp(vp$parent, recording)
  25: push.vp.viewport(vp$parent, recording)
  26: grid.Call.graphics(C_setviewport, vp, TRUE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 386 SKIPPED: 2 FAILED: 1
  1. Error: Test Plotting Functions (@test_plots.R#138) 
  
  Error: testthat unit tests failed
  Execution halted