editDB: Edit Data Base

In RSEIS: Seismic Time Series Analysis Tools

Edit Data Base

Description

Edit, or remove items from an RSEIS data base after it has been read in.

Usage

editDB(DB, w)
pathDB(DB,  path1="", path2="")

Arguments

DB	RSEIS data base
w	vector of index items to remove
path1	character for old path
path2	character for new path to replace old path

Details

The DB is a list. The program cycles through the elements of the list and removes all lnes that correspond to the idecies given in w.

Value

Returns a DB list

Note

A problem arises if the makeDB program reads in, or tries to read in files that have not data base header information. This program can eliminate these from the data base.

Author(s)

Jonathan M. Lees<[e-mail]>

See Also

makeDB, infoDB

Examples

##########   create a data set and a DB
tdir = tempdir()
data(GH)

DD = data.frame(GH$info)
WV = which(GH$COMPS=='V')

L1 = length(WV)

######
GIVE = vector(mode='list')

for(j in 1:L1)
{
 i = WV[j]   
AA = DD[i,]

GIVE[[j]] = list(fn = AA$fn, sta =GH$STNS[i] , comp = GH$COMP[i], 
            dt = AA$dt, DATTIM = AA, N = AA$n1, units = NA, 
            coords = NA, amp = GH$JSTR[[i]]  )

}

#######  save files in the tempdir
for(i in 1:length(GIVE) )
{

    sig = GIVE[[i]]
  d1 =  dateStamp(sig$DATTIM)
   nam1 =  paste(d1,sig$sta, sig$comp, sep='_')
    nam2 = paste0(nam1, '.RDS')
    nam3 = paste(tdir, nam2, sep='/')
    saveRDS(file=nam3, sig) 
    }
LF  = list.files(path=tdir,pattern='.RDS', full.names=TRUE)

#######   make the database
cosoDB = FmakeDB(LF, kind=-1)

######  change the DB path:
path1<-tdir
path2<-"."

#######  change the path name of the trace files
newDB <- pathDB(cosoDB, path1, path2 )

RSEIS documentation built on Sept. 13, 2024, 1:09 a.m.