Basic script to test pulling a report from omniture.

pull-omniture-report.R

#!/usr/bin/Rscript

library("RSiteCatalyst")

project_name <- "testing-omniture"
rsid <- "REPORT-SUITE-ID"
rsid_friendly <- "FRIENDLY-NAME"
today_dt <- Sys.Date()
date.1.start <- Sys.Date()-3
date.1.end <- Sys.Date()-1
my_elements <- c("prop9")
my_metrics <- c("pageviews")
my_segment <- "5xe1x51xe4x0acx00xa0x400"
SCAuth("USERNAME", "TOKEN")


fdc.testing.recent <- QueueRanked(
	rsid, 
    date.from = date.1.start,
    date.to = date.1.end,
    elements = my_elements,
    metrics = my_metrics,
    segment.id = my_segment, 
    top = "10000",
    data.current = FALSE                      
)

print(fdc.testing.recent)