[R] problem in displaying image in browser using Rook

[punitha]

hi,

I wanted to convert a graph into image and display it in browser,
i got the image in the given folder and everything is coming out well but
the image is not being displayed,
even the error or warning is not being given so i dont know what exactly i
have made mistake in the code,
please can anyone help me out in this please.


sample = function(env) {
 req = Rook::Request$new(env)
     res = Rook::Response$new()
   res$write('Name:\n')
     res$write('<form method="POST">\n')
     res$write('<input type="text" name="name1" >\n<br>')
     res$write('Age:\n')
     res$write('<form method="POST">\n')
     res$write('<input type="text" name="age" >\n<br>')
     res$write('Profession:\n')
     res$write('<form method="POST">\n')
     res$write('<input type="text" name="profession" value="8">\n<br>')
     res$write('<input type="submit" name="Go!">\n</form>\n<br>')
 if (!is.null(req$POST())) {
 x<-req$POST()[["name1"]]
 y<-req$POST()[["age"]]
 n<-req$POST()[["profession"]]
 res$write(x)
res$write('<br>')
res$write(y)
res$write('<br>')
res$write(n)
res$write('<br>')
png(file="P_Chart_All_Dims.png", bg="transparent",width=900,height=480)
data(cars)
plot(cars,col="green")
dev.off()
res$write(' < P_Chart_All_Dims.png > ')
 }
 res$finish()
 }
 s = Rhttpd$new()
 s$add(app = sample, name = "visbin")
s$start()
s$browse("visbin")


thanks in advance :)



-----
Thank you,

with regards,
Punitha
--
View this message in context: http://r.789695.n4.nabble.com/problem-in-displaying-image-in-browser-using-Rook-tp4643596.html
Sent from the R help mailing list archive at Nabble.com.