就业信息爬虫 V 0.92

# require(devtools)
# install_github('rCharts', 'ramnathv')

1. 高级人才招聘

Invalid .internal.selfref detected and fixed by taking a (shallow) copy of the data.table so that := can add this new column by reference. At an earlier point, this data.table has been copied by R (or been created manually using structure() or similar). Avoid key<-, names<- and attr<- which in R currently (and oddly) may copy the whole data.table. Use set* syntax instead to avoid copying: ?set, ?setnames and ?setattr. Also, in R<=v3.0.2, list(DT1,DT2) copied the entire DT1 and DT2 (R's list() used to copy named objects); please upgrade to R>v3.0.2 if that is biting. If this message doesn't help, please report to datatable-help so the root cause can be fixed.n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors

Invalid .internal.selfref detected and fixed by taking a (shallow) copy of the data.table so that := can add this new column by reference. At an earlier point, this data.table has been copied by R (or been created manually using structure() or similar). Avoid key<-, names<- and attr<- which in R currently (and oddly) may copy the whole data.table. Use set* syntax instead to avoid copying: ?set, ?setnames and ?setattr. Also, in R<=v3.0.2, list(DT1,DT2) copied the entire DT1 and DT2 (R's list() used to copy named objects); please upgrade to R>v3.0.2 if that is biting. If this message doesn't help, please report to datatable-help so the root cause can be fixed.It seems your data is too big for client-side DataTables. You may consider server-side processing: http://rstudio.github.io/DT/server.htmlIt seems your data is too big for client-side DataTables. You may consider server-side processing: http://rstudio.github.io/DT/server.html

2.企业招聘

2.1 企业

2.2 银行

3.政府事业单位招聘

3.1 事业单位

3.2 国有企业

4.智联招聘

k.zl.new%>%
  .[,地址a:= paste("<a href='",地址1,"' target='blank' >链接1</a>",sep="")]%>%
  .[,地址b:= paste("<a href='",地址2,"' target='blank' >链接2</a>",sep="")]%>%
  select(.,-地址1,-地址2)%>%
  datatable(., escape = FALSE,
  caption = 'Table 3: 事业单位招聘信息汇总' ,options = list(
  pageLength = 50, autoWidth = TRUE
))

```