R/loadData.R

In ClimMob: Crowdsourcing climate-smart agriculture

.loadData <- function(myDat)
{
  
  la <- get("la")
  tl <- as.matrix(read.delim(system.file("external/MultilanguageReadData.txt", package="ClimMob"), header=FALSE, encoding="UTF-8"))
  colnames(tl) <- NULL
  f1 <- file(myDat)
  rL <- readLines(f1, n=3)
  close(f1)
  ncomma <- 0
  nsemicolon <- 0
  
  if(length(strsplit(rL[2], ",")) == length(strsplit(rL[3], ","))) ncomma <- length(strsplit(rL[1], ",")[[1]])
  if(length(strsplit(rL[2], ";")) == length(strsplit(rL[3], ";"))) nsemicolon <- length(strsplit(rL[2], ";")[[1]])
  
  if(1 > (ncomma+nsemicolon)){
    
    gmessage(tl[8,la], title=tl[9,la], icon="error")
    
  } else {
    
    delim <- ifelse(ncomma<=nsemicolon, ";", ",")
    
    if(length(strsplit(rL[1], delim)) == length(strsplit(rL[2], delim))){s <- 0} else{s <- 1}
    
    if(delim == ","){myData <- read.csv(myDat, skip=s)}
    if(delim == ";"){myData <- read.csv2(myDat, skip=s)}
    
  }
    
  if(exists("myData")) {
        
    gmessage(tl[10,la], title=tl[11,la], icon="info")
        
  } else {
        
    gmessage(tl[8,la], title=tl[9,la], icon="error")
        
  }
    
  return(myData)
      
}

.readData <- function()
{
  
  la <- get("la")
  tl <- as.matrix(read.delim(system.file("external/MultilanguageReadData.txt", package="ClimMob"), header=FALSE))
  colnames(tl) <- NULL
  
  lD1 <- function(h, ...)
  {
    
    
    .GlobalEnv$myData <- .loadData(svalue(gf1))
    dispose(g1)
    
  }
  
  lD2 <- function(h, ...)
  {
    
    
    .GlobalEnv$myData <- .loadData(system.file(paste("external/", tl[7,la], sep=""), package="ClimMob"))
    dispose(g1)
    
  }
  
  g1 <- gwindow(tl[12,la], visible=FALSE)
  gg1 <- ggroup(horizontal=FALSE, container=g1)
  ttitle <- glabel(tl[1,la], container=gg1)
  font(ttitle) <- list(size=16)
  gg2 <- ggroup(horizontal=TRUE, container=gg1)
  gl1 <- glabel(tl[2,la], container=gg2)
  font(gl1) <- list(size=12)
  gf1 <- gfilebrowse(text=tl[3,la], filter= list("CSV" = list(patterns = c("*.csv"))), container=gg2)
  gb1 <- gbutton(tl[4,la], container=gg2, handler=lD1)
  gl2 <- glabel(paste("   ",tl[5,la]), container=gg1)
  font(gl2) <- list(size=12)
  gg3 <- ggroup(horizontal=TRUE, container=gg1)
  gl3 <- glabel(tl[6,la], container=gg3)
  font(gl3) <- list(size=12)
  gt1 <- gcombobox(tl[7,la], selected=1, container=gg3)
  svalue(gt1) <- tl[7,la]
  gb2 <- gbutton(tl[4,la], container=gg3, handler=lD2)
  visible(g1) <- TRUE
  
}