tests/test-make_ddixml.r

In swish-climate-impact-assessment/swishdbtools: Database tools for use with the SWISH and CARDAT projects

################################################################
# name:test-make_ddixml
source("R/make_ddixml.r")
require(swishdbtools)
    if(!exists('p'))
    {
      pwd <- getPassword(remote=T)
    }

    ch <- connect2oracle('115.146.93.108', db="DDIINDEXDB", p = pwd)
    
stdy  <- "AWAP_GRIDS"
stdydscr <- dbGetQuery(ch,
                   sprintf("select * from stdydscr where idno = '%s'", stdy)
                       )
file <- dbGetQuery(ch,
                   sprintf("select * from filedscr where idno = '%s' and publishddi = 1", stdy)
                   )
file[,1:3]
    fid = file$FILEID[1]
    datadscr <- dbGetQuery(ch,
                          paste("select * from datadscr where fileid = '",fid,"'",
                          sep = "")
                          )
   df  <- as.data.frame(rep("hello_ewedb", 10))
   names(df) <- "FILE"
   dummyData <- add_datadscr(data_frame = df, fileid = 1, ask=T)
for(fid in file$FILEID)
  {
    #fid = file$FILEID[1]
    datadscr <- dbGetQuery(ch,
                          paste("select * from datadscr where fileid = '",fid,"'",
                          sep = "")
                          )
  file_i <- file[file$FILEID==fid,]
  #str(file_i)
  if(nrow(datadscr) == 0)
    {
      datadscr <- dummyData      
      datadscr$LABL <- file_i$FILENAME
      datadscr$FILEID <- file_i$FILEID
      datadscr
    }

    
  make_ddixml(
    s = stdydscr
    ,
    f=file_i
    ,
    d=datadscr
    ,
    writeXML= T
    )
   
  }