serverinfo<-c("localhost","admin","password")
getsavedsearch_sid <- function(serverinfo, savedsearchName) { uri <- paste("https://", serverinfo[1] , ":8089/services/search/jobs", sep="") bodysearch <- paste("search=savedsearch ", savedsearchName, sep="") result<-POST(uri, authenticate(serverinfo[2], serverinfo[3]), config = httr::config(ssl_verifypeer = FALSE, ssl_verifyhost=FALSE), body=bodysearch) data<-xmlParse(result) xml_data <- xmlToList(data) # 리턴값으로 작업 id를 리턴 return(xml_data$sid) }
sid<-getsavedsearch_sid(serverinfo, "test1")
checkjobfinish <- function(serverinfo, sid) { servicessearchstatusstr <- paste("https://", serverinfo[1] ,":8089/services/search/jobs/", sid, "/", sep="") result<-POST(servicessearchstatusstr, authenticate(serverinfo[2], serverinfo[3]), config = httr::config(ssl_verifypeer = FALSE, ssl_verifyhost=FALSE)) data<-xmlParse(result, useInternalNodes = TRUE) #xml_data <- xmlToList(data) return(result) }
results <- checkjobfinish(serverinfo, sid)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.