$list.find('.ui-li, .ui-btn-text, a.ui-link-inherit').css('white-space', 'normal');

fpop <- read.csv('fuji_pop.csv')
fpop.ts <- ts(fpop$norm_pop, start=1967, frequency=12)
plot(fpop.ts)

fpopr.ts <- ts(fpop$np_jp, start=1967, frequency=12)
plot(fpopr.ts)

express twnow
cd twnow

{
    "name": "application-name"
  , "version": "0.0.1"
  , "private": true
  , "dependencies": {
      "express": "2.5.8"
    , "jade": ">= 0.25.0"
    , "ntwitter": ">= 0.3.0"
    , "now": ">= 0.8.1"
  }
}

npm install -d

twitter = require("ntwitter")
express = require("express")
routes = require("./routes")
nowjs = require("now")

twit = new twitter(
  consumer_key: "####"
  consumer_secret: "####"
  access_token_key: "####"
  access_token_secret: "###"
)

app = module.exports = express.createServer()
app.configure ->
  app.set "views", __dirname + "/views"
  app.set "view engine", "jade"
  app.use express.bodyParser()
  app.use express.methodOverride()
  app.use express.cookieParser()
  app.use express.session(secret: "tweetandsweet")
  app.use app.router
  app.use express.static(__dirname + "/public")

app.configure "development", ->
  app.use express.errorHandler(
    dumpExceptions: true
    showStack: true
  )

app.configure "production", ->
  app.use express.errorHandler()

everyone = nowjs.initialize(app)

app.get "/", (req, res) ->
  console.log req.session.user_profile
  res.render "index",
    title: "twitter streaming and now.js"

twit.stream(
  'statuses/filter'
  {track:['#sketdance']}
  (stream) ->
    stream.on 'data', (data) ->
      everyone.now.receiveMessage data
      console.log data
)

app.listen 3000
console.log(
  "Express server listening on port %d in %s mode"
  app.address().port
  app.settings.env
)

body {
  padding: 50px;
  font: 14px "Lucida Grande", Helvetica, Arial, sans-serif;
}

a {
  color: #00B7FF;
}

li.tweet {
  list-style-type:none;
  width: 500px;
}

img.tweet {
  float: left;
  padding-right: 20px;
}

hr {
  width: 500px;
  clear: left;
  border: 0;
  height: 1px;
  background-image: -webkit-linear-gradient(left, rgba(0,0,0,0), rgba(0,0,0,0.75), rgba(0,0,0,0));
  background-image:    -moz-linear-gradient(left, rgba(0,0,0,0), rgba(0,0,0,0.75), rgba(0,0,0,0));
  background-image:     -ms-linear-gradient(left, rgba(0,0,0,0), rgba(0,0,0,0.75), rgba(0,0,0,0));
  background-image:      -o-linear-gradient(left, rgba(0,0,0,0), rgba(0,0,0,0.75), rgba(0,0,0,0));
}

!!!
html
  head
    title= title
    link(rel='stylesheet', href='/stylesheets/style.css')
    script(type="text/javascript", src="http://ajax.googleapis.com/ajax/libs/jquery/1.7.1/jquery.min.js")
    script(src="/nowjs/now.js")
  body!= body

h1= title
p sample apps
ul#messages
script
  $(document).ready(function() {
    now.receiveMessage = function(data) {
      $("#messages").prepend(
   '<li class="tweet"><img class="tweet" src=\"' + data.user.profile_image_url +'\">'+ data.text + '<hr></li>');
    }
  });

library(maptools)
library(RColorBrewer)
library(classInt)
f <- readShapePoly("h12ka22210.shp")
pop <- f$JINKO / f$AREA * 1000
colors <- brewer.pal(9, "YlOrRd")
brks<-classIntervals(pop, n=10, style="quantile")
brks<- brks$brks
plot(f, col=colors[findInterval(pop, brks,all.inside=TRUE)], axes=F)

import rpy2.robjects.lib.ggplot2 as ggplot2
from rpy2.robjects import r
from rpy2.robjects.packages import importr
base = importr('base')

datasets = importr('datasets')
mtcars = datasets.mtcars

pp = ggplot2.ggplot(mtcars) + \
     ggplot2.aes_string(x='wt', y='mpg', col='factor(cyl)') + \
     ggplot2.geom_point() + \
     ggplot2.geom_smooth(ggplot2.aes_string(group='cyl'), method='lm')

#pp.plot()
r['ggsave'](file="mypng.png", plot=pp)
#r['dev.off']()