diff --git a/R/webAccess.R b/R/webAccess.R index f3724f1e8454f0dc3a126cfbb878de130e8810d8..8bbe6b0265e7819db38c8bbb9243bbc0afacdca9 100755 --- a/R/webAccess.R +++ b/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") diff --git a/man/getCtsKey.Rd b/man/getCtsKey.Rd index fe4ceef67d6f99c92dfdd5dbbbf8284e638a5a4b..887545081cc747816e15b3f1e51f142693da2497 100644 --- a/man/getCtsKey.Rd +++ b/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> } diff --git a/man/getCtsRecord.Rd b/man/getCtsRecord.Rd index 49c7d1209165fbbf5291e0a085c37b9e4fc08ad3..eeb62e4f900a62620c344a20b66430da7c094a39 100755 --- a/man/getCtsRecord.Rd +++ b/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{