Hi VP, Not sure what you wanted. Perhaps: library(XML) URL <- "http://money.securebank.in/index.php?option=com_dashboard&view=history&Itemid=56&startdate=01/01/2013&enddate=6/9/2014&exchange=MCX&sid=1"; doc <- htmlParse(URL) tableNodes <- getNodeSet(doc, "//table") dat1 <- readHTMLTable(tableNodes[[4]], colClasses=c("numeric","character", "character", "numeric", "character", "numeric", "numeric", "character", "numeric"),stringsAsFactors=FALSE) dat1$DATE <- as.Date(dat1$DATE, "%d-%m-%Y") str(dat1) #'data.frame': 6910 obs. of 9 variables: # $ TRADE NO. : num 59084 59085 59063 59059 59054 ... # $ DATE : Date, format: "2014-06-05" "2014-06-05" ... # $ SCRIP : chr "Nickel" "Natural Gas" "Natural Gas" "Aluminium" ... # $ LOT SIZE : num 250 1250 1250 5000 5000 250 100 1000 250 1250 ... # $ TRADE : chr "SHORT" "LONG" "SHORT" "SHORT" ... # $ TRADE EXECUTED AT: num 1126 278 276 109 124 ... # $ TRADE CLOSED AT : num 1124 278 275 109 124 ... # $ PROFIT TAKEN AT : chr "1123.8-EOD" "278.50-EOD" "274.10-T2" "108.55-T1" ... # $ PROFIT PER LOT : num 1500 1500 3000 2250 -750 ...
A.K. On Saturday, June 7, 2014 2:17 PM, "veepsi...@gmail.com" <veepsi...@gmail.com> wrote: Hi AK http://money.securebank.in/index.php?option=com_dashboard&view=history&Itemid=56&startdate=01/01/2013&enddate=6/9/2014&exchange=MCX&sid=1 How you could help me? thanks vp _____________________________________ Sent from http://r.789695.n4.nabble.com ______________________________________________ R-help@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.
