R/tv.home.R

In vegdata: Access Vegetation Databases and Treat Taxonomy

#' Where is your Turboveg 2 installation path or the directory with Species, Data, and Popup you want to use?
#'
#' @export
#' @description Reads and sets invisbly option('tv_home')
#' @name tv.home
#' @param path (character) path to your Turboveg installation root or a directory containing Species, Data and Popup
#' @param check (logical) reset even if option('tv_home') is already set
#'
#' @return Reads and sets invisibly option('tv_home')
#'
#' @author Florian Jansen \email{florian.jansen@uni-rostock.de}
#' @keywords Turboveg

tv.home <- function(path, check = FALSE) {
  if(missing(path)) {
  if(is.null(getOption('tv_home')) | check) {
    if(.Platform$OS.type == "unix") {
     if(Sys.info()["sysname"] != "Darwin" & 'Turbowin' %in% list.dirs(path=paste(Sys.getenv('HOME'),'/.wine/drive_c', sep=''), full.names=FALSE, recursive = FALSE)) {
          tv_home <- file.path(Sys.getenv('HOME'),'.wine/drive_c/Turbowin')
     } else {
              message('\nNo Turbowin installation path found. \n')
              tv_home = .my_cache$cache_path_get()
              }
      options(tv_home = tv_home)
    }
    if(.Platform$OS.type == "windows") {
    	if(file.access('C:/Turbowin/Popup/tvscale.dbf')==0) tv_home <- 'C:/Turbowin' else
    	  if(file.access('C:/Programs/Turbowin/Popup/tvscale.dbf') ==0) tv_home <- 'C:/Programs/Turbowin' else
    	    if(file.access('C:/Programme/Turbowin/Popup/tvscale.dbf') ==0) tv_home <- 'C:/Programme/Turbowin' else
    	      if(file.access('D:/Programme/Turbowin/Popup/tvscale.dbf') ==0) tv_home <- 'D:/Programme/Turbowin' else {
    	        message('\nNo Turbowin installation path found. \n')
              tv_home <- .my_cache$cache_path_get()
    	     }
    	     options(tv_home = tv_home)
    }
    message('############################################################',
            '\nTurboveg root directory is set to "', getOption('tv_home'), '"',
            '\nIf you want to change this use: options(tv_home=\"<path_to_your_Turbowin_root>\")',
            '\n############################################################')
#    message(
#     "# As dBase is an old DOS format, characters in Turboveg have been stored using the CP437 code table.",
#     "\n# This has been changed and Turboveg seems to use a country specific code page now.",
#     "\n# Please change getOptions('tv.iconv') if you run into problems.")
  }
  } else options(tv_home = path)

  if(is.null(getOption('tv.iconv'))) options(tv.iconv = 'CP437')
   if(getOption('tv_home') == path.package('vegdata'))
    if(!file.exists(file.path(getOption('tv_home'), 'tvdata', 'Popup', 'tvscale.dbf')))
     for(d in c('Popup', 'Data', 'Species')) {
     dir.create(file.path(getOption('tv_home'), d), showWarnings = FALSE)
     if(d == 'Data') {
       wd <- getwd()
       setwd(file.path(path.package('vegdata'), 'tvdata', 'Data')  )
       dbs <- list.dirs('.', recursive=TRUE, full.names=FALSE)
       for(l in 2:length(dbs)) {
         dir.create(file.path(getOption('tv_home'), 'Data', dbs[l]), showWarnings = FALSE)
       file.copy(from =  list.files(dbs[l], recursive=TRUE, full.names=TRUE, include.dirs=TRUE), to = file.path(getOption('tv_home'), 'Data', dbs[l]))
       }
       setwd(wd)
     } else
     file.copy(from =  list.files(file.path(path.package('vegdata'), 'tvdata', d), recursive=TRUE, full.names=TRUE, include.dirs=TRUE), to = file.path(getOption('tv_home'), d))
    }
  invisible(getOption('tv_home'))
}