How to read in .HTM into R as a data frame?

Something like:

require(dplyr)
require(plyer)
require(data.table)
require(jsonlite)
require(httr)
require(rvest)
require(XML)
require(plyr)


COLORDER = c("symbol", "code", "type", "expiry", "strike", "premium", "bid", "ask", "volume", "open.interest", "retrieved")


# AUSTRALIAN OPTIONS --------------------------------------------------------------------------------------------------

# ASX is the Australian Securities Exchange.

URLASX = 'http://www.asx.com.au/asx/markets/optionPrices.do?by=underlyingCode&underlyingCode=%s&expiryDate=&optionType=B'

getOptionChainAsx <- function(symbol) {
  url = sprintf(URLASX, symbol)

  html <- read_html(url)

  # Use the second element in the list (the first element gives data on the underlying stock)
  #
  options = (html %>% html_nodes("table.options") %>% html_table(header = TRUE))[[2]] %>%
    plyr::rename(c("Bid" = "bid", "Offer" = "ask", "Openinterest" = "open.interest", "Volume" = "volume", "Expirydate" = "expiry",
                   "P/C" = "type", "Margin Price" = "premium", "Exercise" = "strike", "Code" = "code")) %>%
    transform(
      symbol        = symbol,
      code          = code,
      retrieved     = Sys.time(),
      open.interest = suppressWarnings(as.integer(gsub(",", "", open.interest))),

Related Posts:

  1. Plot multiple lines in one graph
  2. Replace a value in a data frame based on a conditional (`if`) statement
  3. Create empty data frame with column names by assigning a string vector?
  4. Changing font size and direction of axes text in ggplot2
  5. How to randomize ggplot factor color scheme, keeping same default distances on color wheel?
  6. Count number of occurences for each unique value
  7. Warning message: line appears to contain embedded nulls [duplicate]
  8. Find duplicate values in R
  9. How to change line width in ggplot?
  10. Error in library(ggplot2) : There is no package called ‘ggplot2’
  11. Transpose a data frame
  12. How to drop columns by name in a data frame
  13. How to reshape data from long to wide format
  14. Change size of axes title and labels in ggplot2
  15. Multiple If Statements in R
  16. ggplot geom_text font size control
  17. What’s the difference between lapply and do.call?
  18. ggplot2, change title size
  19. Combine two or more columns in a dataframe into a new column with a new name
  20. Initial value in ‘vmmin’ is not finite even when changing the starting value
  21. Insert picture/table in R Markdown
  22. Test if a vector contains a given element
  23. R “Error: unexpected ‘}’ in “}”
  24. How to remove outliers from a dataset
  25. Insert a blank column in dataframe
  26. “length of ‘dimnames’ [2] not equal to array extent” on one of two very similar sets
  27. Mean per group in a data.frame
  28. How to install RHadoop packages (Rmr, Rhdfs, Rhbase)?
  29. Error in dev.off() : cannot shut down device 1 (the null device)
  30. How to create an empty matrix in R?
  31. standard deviation on dataframe does not work
  32. Warning message: In `…` : invalid factor level, NA generated
  33. How to increase font size in a plot in R?
  34. What is the difference between = and ==?
  35. Merge r brings error “‘by’ must specify uniquely valid columns”
  36. Subscripts in plots in R
  37. promise already under evaluation: recursive default argument reference or earlier problems?
  38. What does the error “arguments imply differing number of rows: x, y” mean?
  39. Aggregate multiple columns at once
  40. Error in model.frame.default: variable lengths differ
  41. Non-numeric argument to mathematical function
  42. Position-dodge warning with ggplot boxplot?
  43. Plot two graphs in same plot in R
  44. data.table vs dplyr: can one do something well the other can’t or does poorly?
  45. R – Concatenate two dataframes?
  46. KNN in R: ‘train and class have different lengths’?
  47. Error in rep(1, n.ahead) : invalid ‘times’ argument in R
  48. Producing subscripts in R markdown
  49. ggplot geom_text font size control
  50. lme4::lmer reports “fixed-effect model matrix is rank deficient”, do I need a fix and how to?
  51. R multiple conditions in if statement
  52. How do you use “<<-" (scoping assignment) in R?
  53. Remove quotes from a character vector in R
  54. Convert data.frame columns from factors to characters
  55. Re-ordering factor levels in data frame
  56. Is it possible to have a multi-line comments in R?
  57. Understanding the result of modulo operator: %%
  58. R – error “variable lengths differ”
  59. Simple manual RMarkdown tables that look good in HTML, PDF and DOCX
  60. Select rows from a data frame based on values in a vector
  61. how to increase the limit for max.print in R
  62. dplyr: “Error in n(): function should not be called directly”
  63. how to increase the limit for max.print in R
  64. In R formulas, why do I have to use the I() function on power terms, like y ~ I(x^3)
  65. backward elimination in R
  66. Error in eval(expr, envir, enclos) : object not found
  67. Filter data.frame rows by a logical condition
  68. Replace NA with 0 in a data frame column [duplicate]
  69. How to plot 3D scatter diagram using ggplot?
  70. How do I convert a factor into date format?
  71. Error while creating heatmaps – NA/NaN/Inf in foreign function call (arg 11)
  72. Write lines of text to a file in R
  73. How to compute summation in r
  74. Plot multiple boxplot in one graph
  75. R will plot but won’t draw abline
  76. scale_fill_discrete and scale_fill_manual – legend options confusion
  77. R – argument is of length zero in if statement
  78. ‘Incomplete final line’ warning when trying to read a .csv file into R
  79. How to solve ‘protection stack overflow’ issue in R Studio
  80. Conditional mean statement
  81. Merging data – Error in fix.by(by.x, x)
  82. Warning in GLM analysis
  83. Error in 2:n : NA/NaN argument
  84. Error in generating boxplot two variable data frame: adding class “factor” to an invalid object
  85. Error : Unable to start png() device
  86. What does ‘length of ‘dimnames’ [1] not equal to array extent’ mean?
  87. How do I flip rows and columns in R
  88. Remove NA values from a vector
  89. How to catch integer(0)?
  90. Print string and variable contents on the same line in R
  91. “no function to return from, jumping to top level”
  92. Does R have a wildcard expression (such as an asterisk (*))?
  93. r random forest error – type of predictors in new data do not match
  94. env=baseenv() in R
  95. How to set axis range R
  96. Simple for loop in R producing “replacement has length zero” in R
  97. Removing punctuations from text using R
  98. How to find out which package version is loaded in R?
  99. How to solve it. error:Error in data[[rowvar]] : attempt to select less than one element
  100. How to melt and cast dataframes using dplyr?

Leave a Comment