Subversion Repositories public iLand

### SQL helping function

# we use the R library RSQLite for all database accesses

# look up the help for the avaiable features.

library(RSQLite)

db.conn <- NA

query<-function(query_str) {

  res <- dbSendQuery(db.conn, query_str)

  data <- fetch(res, n=-1)

  if (dbGetException(db.conn)$errorNum>0)

    print(dbGetException(db.conn)$errorMsg)

  dbClearResult(res)

  data

}

## species colors

# species_colors<-c("red", "blue", "green", "gray")

# names(species_colors)<-c("piab","fasy","lade", "pisy")

# species.color <- function(species) {

#   if (species %in% names(species_colors)) {

#     return (species_colors[species]);

#   } else {

#     return ("black");

#   }

# }

### query all tables from the output database

query("SELECT name FROM sqlite_master WHERE type='table'"); # use select * for more details!