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)
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]