Running ‘Test.R’ [1s/125s]
Running the tests in ‘tests/Test.R’ failed.
Complete output:
  > # Testing for internet connectivity, the connection to the MODIS SOAP WSDL Server and it's Web Service
  > # Description Language, for the XML response from the Web Service method, and for the functions of
  > # MODISTools.
  > 
  > # Load data to be used for testing.
  > rm(list = ls())
  > library(MODISTools)
  > data(SubsetExample, FindIDExample, QualityCheckExample, TransectExample, EndCoordinatesExample, ConvertExample)
  > library(RCurl)  # Will use some RCurl and XML functions explicitly in testing.
  Loading required package: bitops
  > library(XML)
  > 
  > options(warn = 2)
  > 
  > ## Following lines of code testing for internet connectivity and server access, are from
  > ## R testing: .../tests/internet.R
  > # Check for internet capability.
  > if(!capabilities("http/ftp")) q()
  > 
  > # Check for internet connectivity.
  > if(.Platform$OS.type == "unix" && is.null(nsl("cran.r-project.org"))) q()
  > 
  > # Check we can reach the server for lpdaac modis web service.
  > if(.Platform$OS.type == "unix" && is.null(nsl("daacmodis.ornl.gov"))) q()
  > 
  > # Check the web service is currently responsive.
  > if(class(try(GetProducts(), silent = TRUE)) == "try-error") q()
  > ##
  > 
  > # Check the XML response is as expected.
  > getsubset.xml <- paste('
  + <soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"
  +               xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:mod="', daacmodis, '/MODIS_webservice">
  +                         <soapenv:Header/>
  +                         <soapenv:Body>
  +                         <mod:getsubset soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
  +                         <Latitude xsi:type="xsd:float">', 51.41363, '</Latitude>
  +                         <Longitude xsi:type="xsd:float">', -0.64875, '</Longitude>
  +                         <Product xsi:type="xsd:string">', "MOD13Q1", '</Product>
  +                         <Band xsi:type="xsd:string">', "250m_16_days_EVI", '</Band>
  +                         <MODIS_Subset_Start_Date xsi:type="xsd:string">', "A2001001", '</MODIS_Subset_Start_Date>
  +                         <MODIS_Subset_End_Date xsi:type="xsd:string">', "A2001025", '</MODIS_Subset_End_Date>
  +                         <Km_Above_Below xsi:type="xsd:string">', 0, '</Km_Above_Below>
  +                         <Km_Left_Right xsi:type="xsd:string">', 0, '</Km_Left_Right>
  +                         </mod:getsubset>
  +                         </soapenv:Body>
  +                         </soapenv:Envelope>',
  +                         sep = "")
  > 
  > header.fields <- c(Accept = "text/xml",
  +                    Accept = "multipart/*",
  +                    'Content-Type' = "text/xml; charset=utf-8",
  +                    SOAPAction = "")
  > 
  > reader <- basicTextGatherer()
  > header <- basicTextGatherer()
  > 
  > curlPerform(url = paste0(daacmodis, wsdl_loc),
  +             httpheader = header.fields,
  +             postfields = getsubset.xml,
  +             writefunction = reader$update,
  +             verbose = FALSE)
  OK 
   0 
  > 
  > # Check the server is not down by insepcting the XML response for internal server error message.
  > if(grepl("Internal Server Error", reader$value())) q()
  > 
  > xmlRoot(xmlTreeParse(reader$value()))
  Space required after the Public Identifier
  SystemLiteral " or ' expected
  SYSTEM or PUBLIC, the URI is missing
  Error: 1: Space required after the Public Identifier
  2: SystemLiteral " or ' expected
  3: SYSTEM or PUBLIC, the URI is missing
  Execution halted