Hi Danr,
Thanks for the quick reply.
I am not able to post the code on reprex.
Here is it,
library(plyr)
library(RSiteCatalyst)
library(stringr)
# User Inputs
inputdir = "C:\\Users\\s.shivaji.desai\\Desktop\\Scripts\\Scripts\\AT"
# reading INPUT data per work type /queue
setwd(inputdir) # working directory
SCAuth("**********", "**********")
report_suites <- GetReportSuites()
# change the month
from.date = "2018-02-01"
to.date = "2018-02-28"
# change the suite as
rsid <-"fcae.lancia.austria"
#Lancia
# Page conversion_leads
Rpt_Output_Lead <- QueueTrended(rsid ,from.date, to.date,
c("event2","event1","event76","visits","visitors"),
c("page"),top = 30,
date.granularity="month",
#segment.id = "588f3013e4b0483bc4b8d6e0", segment.inline = "5893734be4b0799ee117edf9",
segment.id=c("588f3013e4b0483bc4b8d6e0","5893734be4b0799ee117edf9"),
max.attempts=1000)
# Download Page conversion_Lead
write.table(x=Rpt_Output_Lead, file = "Lancia_Desktop_Lead.xls", append = FALSE, sep = "\t", quote = TRUE, na = "NA", row.names = FALSE, col.names = TRUE, dec = ".", eol = "\n")
# Download Page_name_with_URL
write.table(x=Rpt_Output_page_anme_with_URL, file = "FiatPro_Desktop_page_name_with_URL.xls", append = FALSE, sep = "\t", quote = TRUE, na = "NA", row.names = FALSE, col.names = TRUE, dec = ".", eol = "\n")