# NOT RUN {
rev_user <- "my_username"
rev_pwd <- "super_secret"
product_ids_list <- c("123", "456", "789")
session_id <- revulytics_auth(rev_user, rev_pwd)
product_properties <- get_product_properties(product_ids_list, session_id, rev_user)
sink("output_filename.txt")
sink(stdout(), type = "message")
client_metadata <- get_client_metadata(product_ids_list, session_id, rev_user,
product_properties, c("Property1", "Property2"), start_date, end_date)
sink()
# }
Run the code above in your browser using DataLab