remove dontrun from CTS examples to catch CTS errors.

R/webAccess.R

@@ -143,11 +143,9 @@ getPcId <- function(search)
 #' \url{http://cts.fiehnlab.ucdavis.edu}
 #' 
 #' @examples
-#' \dontrun{
 #' data <- getCtsRecord("UHOVQNZJYSORNB-UHFFFAOYSA-N")
 #' # show all synonym "types"
 #' types <- unique(unlist(lapply(data$synonyms, function(i) i$type)))
-#' }
 #' \dontrun{print(types)}
 #' 
 #' @author Michele Stravs, Eawag <stravsmi@@eawag.ch>
@@ -172,9 +170,7 @@ getCtsRecord <- function(key)
 #' @return An unordered array with the resulting converted key(s). 
 #' 
 #' @examples 
-#' \dontrun{	
 #' k <- getCtsKey("benzene", "Chemical Name", "InChIKey")
-#' }
 #' @author Michele Stravs, Eawag <stravsmi@@eawag.ch>
 #' @export
 getCtsKey <- function(query, from = "Chemical Name", to = "InChIKey")

man/getCtsKey.Rd

@@ -18,10 +18,8 @@
   Convert a single ID to another using CTS.
 }
 \examples{
-\dontrun{
 k <- getCtsKey("benzene", "Chemical Name", "InChIKey")
 }
-}
 \author{
   Michele Stravs, Eawag <stravsmi@eawag.ch>
 }

man/getCtsRecord.Rd

@@ -27,11 +27,9 @@
   scores are all 0, formula and exact mass return zero.
 }
 \examples{
-\dontrun{
 data <- getCtsRecord("UHOVQNZJYSORNB-UHFFFAOYSA-N")
 # show all synonym "types"
 types <- unique(unlist(lapply(data$synonyms, function(i) i$type)))
-}
 \dontrun{print(types)}
 }
 \author{