Question

我在R中有一个脚本，当我手动运行它时。我正在建设一个允许非R用户运行该应用程序的Web应用程序。要创建Web应用程序，我使用了Rwui。该应用程序生成图表（社交网络分析）。应用程序采用用户输入的特定输入并将其发送到R脚本。我在我的localhost上运行应用程序。

问题是我总是得到空白的结果。 Rwui自动设置目录并找到自己的源代码。

我从Rwui检索的源代码是：

source("C:\\apache-tomcat-7.0.57\\webapps\\network4\\WEB-INF\\network.R")

我直接输入这个源代码给R，我得到了这个答案：

Error in source("C:\\tomcat\\webapps\\network4\\WEB-INF\\network.R") : 
C:\tomcat\webapps\network4\WEB-INF\network.R:6:24: unexpected symbol
5: require (RMySQL);
6: require (sqldf); (note SQLDF)

#Here是＆＃34; network.R＆＃34;

中的代码

 options(sqldf.driver = "SQLite")     
 #Load all the library we need 
 require(RMySQL)
 require(sqldf)
 require(igraph)
 require(reshape2)
# Connection to the database
 con<-dbConnect(MySQL(), user= "root", password = "my_password", dbname    
 ="my_database_name");
 rs<-dbSendQuery(con, "select * from library");
 #Fetch the data 
 data<-fetch(rs, n=-1)
 #Allocate a special value to user_id
 df<-fn$sqldf("SELECT distinct user_id, books  from data where user_id  
 ='$user')")
 # create the Social network graph 
 net_list <- melt( df, id.vars = "user")
 net_list <- net_list[ !is.na(net_list$value), c("user", "value") ]
 graph_o <- graph.data.frame(net_list) #This is a proper igraph graph object
 list_rep <- get.adjlist(graph_o)
 matrix_rep <- get.adjacency(graph_o)
 g1<-graph.adjacency(matrix_rep)
 V(g1)$color <- ifelse(V(g1)$name %in% df[,1], "yellow","green")
 plot(g1)

有人能帮帮我吗？谢谢

R：source（）命令不起作用

0 个答案: