# #——回声= FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -选项(markdown.HTML。选项= toc) # # - - - - - eval = FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # install.packages (c (“Rserve”、“FastRWeb”),“http://www.rforge.net/”) # # - - - - - eval = FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #系统(粘贴(“cd”,执行(包=“FastRWeb”),“& & install.sh”)) # #——着陆页,回声= FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - f < -合法产业(AnalysisPageServer:: new.FastRWeb.analysis.page.run) unslash < -函数(x)子(“/ + $”,“子(“^ / +”、”“x)) landingPageURL < -文件。路径(" http://localhost ", unslash (f FastRWeb.prefix美元),“APS unslash (f front.end.location美元),“analysis-page-server.html”) # # - - - - - eval = FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #库(AnalysisPageServer) # # x < -代表(1:nrow(火山),每个= ncol(火山))# y < -代表(1:ncol(火山),nrow(火山))#火山。细胞< - data.frame (x = x, y = y,身高= as.vector (t(火山)))# #火山。处理程序< -函数(color1 =“红色”,color2 =“蓝色”){# par (mar = c(1、1、4、1) #选择。颜色< - c (color1 color2) # < - colorRampPalette上校(chosen.colors)(50) #图像(数据集::火山,xaxt =“n”, yaxt =“n”,主要=“Maunga Whau火山”,# =上校,上校cex。主要= 2)# #返回(volcano.cells) #} # #火山。< - new.analysis页。页面(处理程序=火山。处理程序,name =“火山”,#描述=“画Maunga Whau火山”两种颜色)# reg < - new.registry (volcano.page) # # < new.FastRWeb.analysis.page.run (reg, # FastRWeb运行。scriptname = " APS”)## ----eval = FALSE-------------------------------------------------------- # library(MyAPSPackage) # myRun <- new.FastRWeb.analysis.page.run(myAPSRegistry(), # FastRWeb.scriptname = "APS") ## ----eval = FALSE-------------------------------------------------------- # run <- myRun ## ----eval = FALSE-------------------------------------------------------- # killall Rserve # /var/FastRWeb/code/start ## ----eval = FALSE-------------------------------------------------------- # library(AnalysisPageServer) # # x <- rep(1:nrow(volcano), each = ncol(volcano)) # y <- rep(1:ncol(volcano), nrow(volcano)) # volcano.cells <- data.frame(x = x, y = y, Height = as.vector(t(volcano))) # # volcano.handler <- function(color1 = "red", color2 = "blue") { # par(mar = c(1, 1, 4, 1)) # chosen.colors <- c(color1, color2) # col <- colorRampPalette(chosen.colors)(50) # image(datasets::volcano, xaxt = "n", yaxt = "n", main = "Maunga Whau Volcano", # col = col, cex.main = 2) # # return(volcano.cells) # } # # volcano.page <- new.analysis.page(handler = volcano.handler, name = "volcano", # description = "Draw the Maunga Whau Volcano in Two Colors") # reg <- new.registry(volcano.page) # # run <- new.FastRWeb.analysis.page.run(reg, # FastRWeb.scriptname = "APS")