update Index Files

Author: rifat963

README.md

@@ -17,7 +17,7 @@ All api source code located in plumber folder. To run the server locally you nee
 
 ## APIs 
 
-Example APIs are deployed in http://178.62.126.59:8500/. Following we present short summary of the API used in the tool.
+Example APIs are deployed in http://datascience.ismb.it:9500/. Following we present short summary of the API used in the tool.
 
 **runQury/** 
 
@@ -43,7 +43,7 @@ className<-gsub("#", "%23", className)
 graph<-"<http://dbpedia.org/resource/classes#>"
 graph<-gsub("#", "%23", graph)
 
-parm<-paste0("http://178.62.126.59:8500/","runQuery?filename=",filename,"&endpoint=",endpoint,"&graph=",
+parm<-paste0("http://datascience.ismb.it:9500/","runQuery?filename=",schedulerName,"&endpoint=",endpoint,"&graph=",
             graph,"&className=",className)
           
 r<-GET(parm)
@@ -65,7 +65,7 @@ Example:
 ```
 schedulerName= "scheduler_event"
 
-parm<-paste("http://178.62.126.59:8500/","readCSV?filename=",schedulerName,".csv",sep = "")
+parm<-paste("http://datascience.ismb.it:9500/","readCSV?filename=",schedulerName,".csv",sep = "")
 
 r<-GET(parm)
 
@@ -102,15 +102,15 @@ graph<-gsub("#", "%23", graph)
 
 # It is necessary to create the R script before creating the Cron Job in the server
 
-parm<-paste0("http://178.62.126.59:8500/","createRfile?filename=",schedulerName,"&className=",
+parm<-paste0("http://datascience.ismb.it:9500/","createRfile?filename=",schedulerName,"&className=",
                 className,"&endpoint=",endpoint,"&graph=",graph)
     
 responseCreateRfile<-GET(parm)
 resCreateRfileContent<-content(responseCreateRfile)
 
 # In the server duplicate scheduler will generate error. For this before createing scheduler please check current #  # available schedulers.
 
-  parm<-"http://178.62.126.59:8500/readSchedulerIndex"
+  parm<-"http://datascience.ismb.it:9500//readSchedulerIndex"
   r<-tryCatch(GET(parm), error = function(e) return(NULL))
   dt<-content(r)
   DF<-fromJSON(dt[[1]])
@@ -121,7 +121,7 @@ resCreateRfileContent<-content(responseCreateRfile)
 freq="daily"
 time="14:25:00"
 
-parm<-paste0("http://178.62.126.59:8500/","createCornJob?filename=",schedulerName,"&freq=",
+parm<-paste0("http://datascience.ismb.it:9500/","createCornJob?filename=",schedulerName,"&freq=",
             freq,"&time=",time)
 r<-GET(parm)
 
@@ -140,9 +140,9 @@ Return: CronJOb list
 
 ```
 
-parm<-"http://178.62.126.59:8500/getAllCornList"
+parm<-"http://datascience.ismb.it:9500/getAllCornList"
 
-http_status(GET("http://178.62.126.59:8500/getAllCornList"))
+http_status(GET("http://datascience.ismb.it:9500/getAllCornList"))
 
 r<-GET(parm)
 
@@ -152,5 +152,6 @@ content(r)
 
 
 #### Licence
+
 These scripts are free software; you can redistribute it and/or modify it under the terms of the GNU General Public License published by
 the Free Software Foundation, either version 3 of the License, or (at your option) any later version. See the file Documentation/GPL3 in the original distribution for details. There is ABSOLUTELY NO warranty. 

Test files/ApiTestR01.R

@@ -1,10 +1,10 @@
 library(SPARQL)
 library(jsonlite)
 filename=TestR01.R
-endpoint=http://kb.3cixty.com/sparql
+endpoint="http://kb.3cixty.com/sparql"
 className=dul:Place
-graph=<http://3cixty.com/nice/places>
-parm<-paste("http://178.62.126.59:8500/","runQuery?filename=",filename,"&className=",
+graph="<http://3cixty.com/nice/places>"
+parm<-paste("http://datascience.ismb.it:9500//shiny/KBDataObservetory/","runQuery?filename=",filename,"&className=",
             className,"&endpoint=",endpoint,"&graph=",graph,sep = "")
 r<-GET(parm)
 destfile=paste(getwd(),filename,sep = "/")

Test files/run-myserver.R

@@ -1,3 +1,5 @@
 library(plumber)
 myplumobject <- plumb('myserver.R')
 myplumobject$run(port=4000)
+
+

plumber/apiServerCall.R

@@ -2,7 +2,7 @@ library(SPARQL)
 library(jsonlite)
 library(cronR)
 library(stringr)
-library(taskscheduleR)
+#library(taskscheduleR)
 
 
 #* @get /getSchedulerResults
@@ -61,31 +61,31 @@ createSchedulerIndex<-function(schedulerName){
 #* @get /addSchedulerIndex
 createSchedulerIndex<-function(schedulerName){
 
-  st<-read.csv("/root/index/scheduleIndex.csv",header = T)
+  st<-read.csv("/srv/shiny-server/KBDataObservetory/schedulerIndex/scheduleIndex.csv",header = T)
   df<-data.frame(schedulerName<-schedulerName,location<-"/usr/local/lib/R/site-library/cronR/extdata/",
                  saveData<-"/usr/local/lib/R/site-library/cronR/extdata/saveData")
   df<-rbind(st,df)
 
-  write.csv(df,"/root/index/scheduleIndex.csv",row.names = F)
+  write.csv(df,"/srv/shiny-server/KBDataObservetory/schedulerIndex/scheduleIndex.csv",row.names = F)
   rm(df)    
 }
 
 #* @get /readSchedulerIndex
 createSchedulerIndex<-function(){
-  st<-read.csv("/root/index/scheduleIndex.csv",header = T)
+  st<-read.csv("/srv/shiny-server/KBDataObservetory/schedulerIndex/scheduleIndex.csv",header = T)
   toJSON(st)    
 }
 
 #* @get /updateSchedulerIndex
 createSchedulerIndex<-function(schedulerName){
 
-  DF<-read.csv("/root/index/schedulerList.csv",header = T)
+  DF<-read.csv("/srv/shiny-server/KBDataObservetory/schedulerIndex/schedulerList.csv",header = T)
 
   ind <- which(with( DF, schedulerName==schedulerName))
 
   DF <- DF[ -ind, ]
 
-  write.csv(data.frame(DF),"/root/index/schedulerList.csv",row.names = F)
+  write.csv(data.frame(DF),"/srv/shiny-server/KBDataObservetory/schedulerIndex/schedulerList.csv",row.names = F)
   rm(DF)    
 }
 

schedulerIndex/scheduleIndex.csv

@@ -0,0 +1,2 @@
+"filename"
+"lode:Event"

schedulerIndex/schedulerList.csv

@@ -0,0 +1,2 @@
+"filename"
+"lode:Event"

testingApiCalls.R

@@ -0,0 +1,50 @@
+library(httr)
+
+endpoint<-"https://dbpedia.org/sparql"
+
+schedulerName="scheduler_owl"
+endpoint<-"https://dbpedia.org/sparql"
+
+className<-"<http://www.w3.org/2002/07/owl#Class>"
+className<-gsub("#", "%23", className)
+
+graph<-"<http://dbpedia.org/resource/classes#>"
+graph<-gsub("#", "%23", graph)
+
+filename="test"
+#130.192.85.247
+
+parm<-paste0("http://datascience.ismb.it:9500/","runQuery?filename=",filename,"&endpoint=",endpoint,"&graph=",
+             graph,"&className=",className)
+
+r<-GET(parm)
+
+#http://datascience.ismb.it:9500/readSchedulerIndex
+
+r
+
+dt<-content(r)
+
+schedulerName= "scheduler_event"
+
+parm<-paste("http://178.62.126.59:8500/","readCSV?filename=",schedulerName,".csv",sep = "")
+
+r<-GET("http://datascience.ismb.it:9500/readSchedulerIndex")
+
+r<-GET(parm)
+
+dt<-content(r)
+
+json_data <- fromJSON(dt[[1]]) 
+
+
+
+# Create Scheduler Index
+
+st=data.frame(filename=c("lode:Event"))
+
+
+write.csv(st,"/srv/shiny-server/KBDataObservetory/schedulerIndex/schedulerList.csv",row.names = F)
+
+
+