R help - Sep 2012 - creating graphs using Rook

hi,

      I m said to display graph in browser using Rook.
So i found a code i.e
library(Rook) # for web functionality 
library(ggplot2) # for graphing 
library(tseries) # used to grab time series from yahoo for stock symbols 
library(plyr) # data tweaks 
 
PIC.DIR = paste(getwd(), 'pic', sep='/') 
 
# define the web page form 
newapp = function(env) { 
    req = Rook::Request$new(env) 
    res = Rook::Response$new() 
 
    if (!is.null(req$POST())) { 
        stock.symbol <- req$POST()[["stock.symbol"]] 
        day.window <- req$POST()[["day.window"]] 
    } else { 
        stock.symbol <- 'AAPL' 
        day.window <- 60 
    } 
    res$write('What stock ticker would you like to see:\n') 
    res$write('<BR/>') 
    res$write('Stock Symbol:\n') 
    res$write('<form method="POST">\n') 
    stock.input <- paste('<input type="text"
name="stock.symbol" value="',
                         stock.symbol, 
                         '">\n', sep='') 
    res$write( stock.input )  
    res$write('<form method="POST">\n') 
    res$write('<input type="radio" name="day.window"
value="30">30 Days \n')
    res$write('<input type="radio" name="day.window"
value="60" checked>60
Days \n') 
    res$write('<input type="radio" name="day.window"
value="90">90 Days \n')
    res$write('<input type="submit"
name="Go!">\n</form>\n<br>')
    myNormalize = function (target) { 
        return((target - min(target))/(max(target) - min(target))) 
    } 
 
    if (!is.null(req$POST())) { 
        # get the stock data as a data frame 
        df <-
as.data.frame(get.hist.quote(stock.symbol,start=as.character(Sys.Date() - 
as.numeric(day.window)),quote=c("Open", "High",
"Low", "Close")))
 
        # add an average and the top/bottom for the candle 
        df <- mutate(df, Average =(High + Low + Close)/3, Bottom pmin(Open,
Close), Top = pmax(Open, Close), Open.to.Close = ifelse(sign(Open
- Close) == 1,'Increase','Decrease'), Date = row.names(df),
Date.Label ifelse(weekdays(as.Date(row.names(df))) ==
'Friday',row.names(df),'')) #
this gets the date from row.names into a column 
 
        # create a box plot 
        my.plot <- ggplot(data=df, aes(x=Date, lower=Bottom, upper=Top,
middle=Average,  ymin=Low,  ymax=High, color=Open.to.Close,
fill=Open.to.Close), xlab='Date', ylab='Price') + 
            geom_boxplot(stat='identity') + 
            # add the line for average price from HCL 
            geom_line(data=df, aes(x=Date,y=Average, group=0),
color='black') + 
            # tweak the labeling 
            opts(axis.text.x = theme_text(angle=270), legend.position
'top', legend.direction='horizontal') +
            scale_x_discrete(labels=df$Date.Label) 
        ggsave(plot=my.plot, paste(PIC.DIR, "/pic", stock.symbol,
day.window, ".png", sep = "")) 
 
        res$write(paste(day.window,' days stock price trend for
',stock.symbol,'<BR/>', sep='')) 
        res$write(paste(" <",  
                        s$full_url("pic"),  
                        > ", sep = "")) 
    } 
    res$finish() 
} 
s = Rhttpd$new() 
s$add(app = newapp, name = "visbin") 
s$add(app = File$new(PIC.DIR), name = "pic") 
s$start() 
s$browse("visbin") 

but when i execute this code i get an error saying
Error in grDevices::png(..., width = width, height = height, res = dpi,  : 
  unable to start png() device

Or Is there any other code which can help me in displaying graph in Rook
using ggplot2





-----
Thank you,

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

FAQ 7.19
http://cran.r-project.org/doc/FAQ/R-FAQ.html
---------------------------------------------------------------------------
Jeff Newmiller                        The     .....       .....  Go Live...
DCN:<jdnewmil at dcn.davis.ca.us>        Basics: ##.#.       ##.#.  Live
Go...
                                      Live:   OO#.. Dead: OO#..  Playing
Research Engineer (Solar/Batteries            O.O#.       #.O#.  with
/Software/Embedded Controllers)               .OO#.       .OO#.  rocks...1k
--------------------------------------------------------------------------- 
Sent from my phone. Please excuse my brevity.

punitha <punitha.c87 at wipro.com> wrote:
>hi,
>
>      I m said to display graph in browser using Rook.
>So i found a code i.e
>library(Rook) # for web functionality 
>library(ggplot2) # for graphing 
>library(tseries) # used to grab time series from yahoo for stock
>symbols 
>library(plyr) # data tweaks 
> 
>PIC.DIR = paste(getwd(), 'pic', sep='/') 
> 
># define the web page form 
>newapp = function(env) { 
>    req = Rook::Request$new(env) 
>    res = Rook::Response$new() 
> 
>    if (!is.null(req$POST())) { 
>        stock.symbol <- req$POST()[["stock.symbol"]] 
>        day.window <- req$POST()[["day.window"]] 
>    } else { 
>        stock.symbol <- 'AAPL' 
>        day.window <- 60 
>    } 
>    res$write('What stock ticker would you like to see:\n') 
>    res$write('<BR/>') 
>    res$write('Stock Symbol:\n') 
>    res$write('<form method="POST">\n') 
>stock.input <- paste('<input type="text"
name="stock.symbol" value="',
>                         stock.symbol, 
>                         '">\n', sep='') 
>    res$write( stock.input )  
>    res$write('<form method="POST">\n') 
>res$write('<input type="radio" name="day.window"
value="30">30 Days
>\n') 
> res$write('<input type="radio" name="day.window"
value="60" checked>60
>Days \n') 
>res$write('<input type="radio" name="day.window"
value="90">90 Days
>\n') 
>    res$write('<input type="submit"
name="Go!">\n</form>\n<br>')
>    myNormalize = function (target) { 
>        return((target - min(target))/(max(target) - min(target))) 
>    } 
> 
>    if (!is.null(req$POST())) { 
>        # get the stock data as a data frame 
>        df <-
>as.data.frame(get.hist.quote(stock.symbol,start=as.character(Sys.Date()
>- 
>as.numeric(day.window)),quote=c("Open", "High",
"Low", "Close")))
> 
>        # add an average and the top/bottom for the candle 
>        df <- mutate(df, Average =(High + Low + Close)/3, Bottom
>pmin(Open, Close), Top = pmax(Open, Close), Open.to.Close
>ifelse(sign(Open
>- Close) == 1,'Increase','Decrease'), Date = row.names(df),
Date.Label
>>ifelse(weekdays(as.Date(row.names(df))) ==
'Friday',row.names(df),''))
>#
>this gets the date from row.names into a column 
> 
>        # create a box plot 
>        my.plot <- ggplot(data=df, aes(x=Date, lower=Bottom, upper=Top,
>middle=Average,  ymin=Low,  ymax=High, color=Open.to.Close,
>fill=Open.to.Close), xlab='Date', ylab='Price') + 
>            geom_boxplot(stat='identity') + 
>            # add the line for average price from HCL 
>            geom_line(data=df, aes(x=Date,y=Average, group=0),
>color='black') + 
>            # tweak the labeling 
>            opts(axis.text.x = theme_text(angle=270), legend.position
>'top', legend.direction='horizontal') +
>            scale_x_discrete(labels=df$Date.Label) 
>        ggsave(plot=my.plot, paste(PIC.DIR, "/pic", stock.symbol,
>day.window, ".png", sep = "")) 
> 
>        res$write(paste(day.window,' days stock price trend for
>',stock.symbol,'<BR/>', sep='')) 
>        res$write(paste(" <",  
>                        s$full_url("pic"),  
>                        > ", sep = "")) 
>    } 
>    res$finish() 
>} 
>s = Rhttpd$new() 
>s$add(app = newapp, name = "visbin") 
>s$add(app = File$new(PIC.DIR), name = "pic") 
>s$start() 
>s$browse("visbin") 
>
>but when i execute this code i get an error saying
>Error in grDevices::png(..., width = width, height = height, res = dpi,
> : 
>  unable to start png() device
>
>Or Is there any other code which can help me in displaying graph in
>Rook
>using ggplot2
>
>
>
>
>
>-----
>Thank you,
>
>with regards,
>Punitha
>--
>View this message in context:
>http://r.789695.n4.nabble.com/creating-graphs-using-Rook-tp4643458.html
>Sent from the R help mailing list archive at Nabble.com.
>
>______________________________________________
>R-help at r-project.org mailing list
>https://stat.ethz.ch/mailman/listinfo/r-help
>PLEASE do read the posting guide
>http://www.R-project.org/posting-guide.html
>and provide commented, minimal, self-contained, reproducible code.