source("scripts/main_pkgs.R")
files = dir("O:/水文数据/daily data in Yellow River/files", full.names = TRUE)
st = read_xlsx("O:/水文数据/daily data in Yellow River/yr.stationinfo.xlsx")
sites = basename(files) %>% gsub(".csv", "", .)
info = match2(sites, st$name)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.