if (FALSE) {
rev_user <- "my_username"
rev_pwd <- "super_secret"
logout(rev_user, rev_pwd)
Sys.sleep(30)
revenera_auth(rev_user, rev_pwd)
product_ids_list <- c("123", "456", "789")
product_properties <- get_product_properties(product_ids_list)
sink("output_filename.txt") # write out chatty messages to a file
sink(stdout(), type = "message")
daily_client_properties <- get_daily_client_properties(product_ids_list,
product_properties, c("Property1", "Property2"),
installed_start_date = "01-01-2020", installed_end_date = "01-31-2020",
daily_start_date = "01-01-2020", daily_end_date = "01-31-2020",
chatty = TRUE
)
sink()
}
Run the code above in your browser using DataLab