search

mpdougherty / razviz

An R package to produce standard graphs for HEC-RAS models.
Creative Commons Zero v1.0 Universal
2 stars 0 forks source link

Observed Paths #12

Open laallison opened 3 years ago

laallison commented 3 years ago

Create function to show which files are being pulled for observed data - right now this functionality is within the import_observed_data.R, but the function does not return a specific list of the pathnames.

loop through each of the Formatted Unsteady Flow Files pathnames and pull the files out of dss

for(p in 1:length(plan_events)){ Formatted_UnsteadyFlowFile <- Formatted_UnsteadyFlowFileList[[p]] event_year <- plan_events[p]

#Recreate the paths for those DSS files
Observed_Pathnames_Formatted <-c()

for(j in 1:nrow(Formatted_UnsteadyFlowFile)){ #for each row in the data frame
  Formmated_Pathname <- paste0("/",Formatted_UnsteadyFlowFile[j,4],"/",
    Formatted_UnsteadyFlowFile[j,5],"/",
    Formatted_UnsteadyFlowFile[j,6],"/",
    "/",
    Formatted_UnsteadyFlowFile[j,8],"/",
    Formatted_UnsteadyFlowFile[j,9],"/")

  Observed_Pathnames_Formatted  <- c(Observed_Pathnames_Formatted , Formmated_Pathname)
}

assign(paste("Observed_Pathnames_Formatted",Plan_Event, sep="_") ,Observed_Pathnames_Formatted)