source(system.file("extdata/new_hope_data.R", package = "nhdplusTools"))
names(new_hope_flowline)
names(new_hope_flowline) <- tolower(names(new_hope_flowline))
new_hope_flowline <- align_nhdplus_names(new_hope_flowline)
names(new_hope_flowline)
Run the code above in your browser using DataLab