Running 'TT.plot.R' [166s]
  Running 'TT.points.in.classes.R' [1s]
  Running 'soiltextureInfo.R' [1s]
  Running 'soiltexture_gui.R' [1s]
Running the tests in 'tests/TT.plot.R' failed.
Complete output:
  > require( soiltexture ) 
  Loading required package: soiltexture
  > 
  > # ::: Texture triangles without data
  > 
  > # :: Base plot (HYPRES / European Soil Map triangle) 
  > TT.plot() 
  > 
  > # same as
  > TT.plot( class.sys = "HYPRES.TT" ) 
  > 
  > # :: Same plot, but with USDA texture triangle 
  > TT.plot( class.sys = "USDA.TT" ) 
  > 
  > # :: Same plot, but with a color gradient 
  > TT.plot( 
  +     class.sys       = "USDA.TT", 
  +     class.p.bg.col  = TRUE
  + )   #
  > 
  > # :: No texture classification system
  > TT.plot( class.sys = "none" ) 
  > 
  > # ::: Texture triangles with texture data 
  > 
  > # :: 1st create a dummy texture dataset 
  > my.text <- data.frame( 
  +     "CLAY"  = c(05,60,15,05,25,05,25,45,65,75,13,47), 
  +     "SILT"  = c(05,08,15,25,55,85,65,45,15,15,17,43), 
  +     "SAND"  = c(90,32,70,70,20,10,10,10,20,10,70,10), 
  +     "OC"    = c(20,14,15,05,12,15,07,21,25,30,05,28)  
  + )   #
  > 
  > # :: And plot it on a French Aisne texture triangle
  > #    with a title
  > TT.plot( 
  +     class.sys   = "FR.AISNE.TT", 
  +     tri.data    = my.text, 
  +     main        = "Soil texture data" 
  + )   #
  > 
  > # ::: Bubble plots (4th variable) 
  > 
  > # :: 1st generate a dummy texture dataset with a 4th variable 
  > #    with TT.dataset() 
  > rand.text   <- TT.dataset( n = 100, seed.val = 1980042401 ) 
  > 
  > # :: Plot the dummy dataset as a bubble plot
  > TT.plot( 
  +     class.sys   = "none", 
  +     tri.data    = rand.text, 
  +     z.name      = "Z", 
  +     main        = "Soil texture triangle and Z bubble plot" 
  + )   #
  > 
  > # ::: Test all the texture triangles
  > TT.plot( class.sys = "none" )           # no classification 
  > TT.plot( class.sys = "HYPRES.TT" )      # HYPRES / European Soil Map 
  > TT.plot( class.sys = "USDA.TT" )        # USDA 
  > TT.plot( class.sys = "USDA-NCSS.TT" )   # USDA with NCSS labels
  > TT.plot( class.sys = "FR.AISNE.TT" )    # French Aisne 
  > TT.plot( class.sys = "FR.GEPPA.TT" )    # French GEPPA 
  > TT.plot( class.sys = "DE.BK94.TT" )     # Germany 
  > TT.plot( class.sys = "DE.SEA74.TT" )    # German SEA 1974 
  > TT.plot( class.sys = "DE.TGL85.TT" )    # German TGL 1985 
  > TT.plot( class.sys = "UK.SSEW.TT" )     # UK 
  > TT.plot( class.sys = "BE.TT" )          # Belgium 
  > TT.plot( class.sys = "CA.FR.TT" )       # Canada (fr) 
  > TT.plot( class.sys = "CA.EN.TT" )       # Canada (en) 
  > TT.plot( class.sys = "CA2.EN.TT" )      # Canada (en) with official labels 
  > TT.plot( class.sys = "AU2.TT" )         # Australian 
  > TT.plot( class.sys = "ISSS.TT" )        # ISSS 
  > TT.plot( class.sys = "ROM.TT" )         # Romanian 
  > TT.plot( class.sys = "USDA1911" )       # USDA 1911 (M. Whitney, 1911)
  > TT.plot( class.sys = "BRASIL.TT" )      # Brasil (Lemos & Santos 1996)
  > TT.plot( class.sys = "SiBCS13.TT" )     # Brasil (Lemos & Santos 1996)
  > 
  > ##  Polish triangles:
  > 
  > #   PTG 1956-1959
  > try( TT.plot( class.sys = "PL.TT" ) ) 
  > #   PTG 1956 Musierowicz
  > try( TT.plot( class.sys = "Polish_PTG_1956_Musierowicz.TT" ) )
  > #   BN 1978
  > try( TT.plot( class.sys = "Polish_BN_1978.TT" ) ) 
  > #   PTG 2008
  > #   Polish kategorie agronomiczne 1990
  > try( TT.plot( class.sys = 
  +     "Polish_kategorie_agronomiczne_1990.TT" ) ) 
  > try( TT.plot( class.sys = "PTG_2008.TT" ) ) 
  > 
  > #   All/most polish triangles includes special characters
  > #   and may not work on all platforms (or some accents may 
  > #   be missing). Remove the try() around the code.
  > 
  > # ::: Test all the languages:
  > TT.plot( class.sys = "USDA.TT", lang = "en" )  # English, default 
  > TT.plot( class.sys = "USDA.TT", lang = "fr" )  # French 
  > TT.plot( class.sys = "USDA.TT", lang = "de" )  # German 
  > TT.plot( class.sys = "USDA.TT", lang = "es" )  # Spanish 
  > TT.plot( class.sys = "USDA.TT", lang = "it" )  # Italian 
  > TT.plot( class.sys = "USDA.TT", lang = "nl" )  # Dutch 
  > TT.plot( class.sys = "USDA.TT", lang = "fl" )  # Dutch (Belgium) / Flemish 
  > TT.plot( class.sys = "USDA.TT", lang = "se" )  # Swedish 
  > TT.plot( class.sys = "USDA.TT", lang = "ro" )  # Romanian 
  > 
  > #   Languages with special characters
  > #   (may not work on all platforms + some accents can be missing)
  > try( TT.plot( class.sys = "USDA.TT", lang = "pl"  ) ) # Polish 
  > try( TT.plot( class.sys = "USDA.TT", lang = "pt"  ) ) # Portuguese 
  > try( TT.plot( class.sys = "USDA.TT", lang = "es2" ) ) # Spanish
  > try( TT.plot( class.sys = "USDA.TT", lang = "ro2" ) ) # Romanian
  > 
  > proc.time()
     user  system elapsed 
     3.75    0.31    4.07