serverinfo<-c("localhost","admin","password")
serverinfo
savedsearchQuery <- function(serverinfo, savedsearchName){
sid <- getsavedsearch_sid(serverinfo, savedsearchName)
isDone <- checkjobfinish(serverinfo, sid)
return (c(sid=sid, isDone=isDone))
}
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)
}
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)
# xml_data <- xmlToList(data)
result<-read_html(result)
isDone<-html_text(html_nodes(result, "key[name='isDone']"))
return(isDone)
}
data<-savedsearchQuery(serverinfo, "test1")
data
data[1]
result<-read_html(data)
result
html_attr(html_nodes(data, "key"), name="name")
title <- content(result) %>%
html_nodes("key")
title
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.