R/setlistname.R

In seqinr: Biological Sequences Retrieval and Analysis

# ==>   setlistname&lrank=xx&name="xx"
# <==  code=xx
# Sets the name of a list identified by its rank.
# Returned code : 0 if OK, 
#                 3 if another list with that name already existed and was deleted
#                 4 no list of rank exists

setlistname <- function(lrank, name = "list1", socket = autosocket()){
  #
  # Build request:
  #
  request <- paste("setlistname&lrank=", lrank, "&name=\"", name, "\"", sep = "")
  writeLines(request, socket, sep = "\n")
  answerFromServer <- readLines(socket, n = 1)
  #
  # Check that there is an answer from server:
  #
  if(length(answerFromServer) == 0){
    warning("Empty answer from server")
    return(NA)
  }
  #
  # Build result:
  #
  resitem <- parser.socket(answerFromServer)
  if(resitem[1] != "0"){
    warning(paste("code returned by server :", resitem[1]))
  }
  return(as.numeric(resitem[1]))
}