# NOT RUN {
sid <- auth("your_username", password = "your_password")
wos_data <- pull_wos("TS = (dog welfare) AND PY = 2010", sid = sid)
# Write files to working directory
write_wos_data(wos_data, ".")
# Write files to "wos-data" dir
write_wos_data(wos_data, "wos-data")
# }
Run the code above in your browser using DataLab