Observed Paths

[laallison]

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)