R: scrape multiple pages with XML and readHTMLTable

gistfile1

library(XML)
library(plyr)

base.url <- "http://www.ttmeiju.com/meiju/Movie.html?page"

GetTable   <- function(page.number) {
  full.url <- paste(base.url, page.number, sep = "=")
  doc      <- htmlParse(full.url, encoding = "GBK")
  node     <- getNodeSet(doc, "//table")[[2]]
  last.row <- xmlSize(node) - 1
  table    <- readHTMLTable(node,
                            header          = TRUE,
                            skip.rows       = c(1, last.row),
                            trim            = TRUE,
                            stringsAsFactor = FALSE)}

ttm.tables <- ldply(1:10, GetTable, .progress = "text")