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. Change size of axes title and labels in ggplot2
  11. Multiple If Statements in R
  12. ggplot geom_text font size control
  13. What’s the difference between lapply and do.call?
  14. ggplot2, change title size
  15. Combine two or more columns in a dataframe into a new column with a new name
  16. Initial value in ‘vmmin’ is not finite even when changing the starting value
  17. Test if a vector contains a given element
  18. R “Error: unexpected ‘}’ in “}”
  19. How to remove outliers from a dataset
  20. Insert a blank column in dataframe
  21. Mean per group in a data.frame
  22. standard deviation on dataframe does not work
  23. Warning message: In `…` : invalid factor level, NA generated
  24. How to increase font size in a plot in R?
  25. Merge r brings error “‘by’ must specify uniquely valid columns”
  26. Subscripts in plots in R
  27. Aggregate multiple columns at once
  28. Non-numeric argument to mathematical function
  29. Position-dodge warning with ggplot boxplot?
  30. Plot two graphs in same plot in R
  31. data.table vs dplyr: can one do something well the other can’t or does poorly?
  32. Error in rep(1, n.ahead) : invalid ‘times’ argument in R
  33. Producing subscripts in R markdown
  34. lme4::lmer reports “fixed-effect model matrix is rank deficient”, do I need a fix and how to?
  35. How do you use “<<-" (scoping assignment) in R?
  36. Remove quotes from a character vector in R
  37. Convert data.frame columns from factors to characters
  38. Re-ordering factor levels in data frame
  39. Is it possible to have a multi-line comments in R?
  40. Understanding the result of modulo operator: %%
  41. R – error “variable lengths differ”
  42. Select rows from a data frame based on values in a vector
  43. how to increase the limit for max.print in R
  44. dplyr: “Error in n(): function should not be called directly”
  45. In R formulas, why do I have to use the I() function on power terms, like y ~ I(x^3)
  46. backward elimination in R
  47. Error in eval(expr, envir, enclos) : object not found
  48. Filter data.frame rows by a logical condition
  49. Replace NA with 0 in a data frame column [duplicate]
  50. How to plot 3D scatter diagram using ggplot?
  51. How do I convert a factor into date format?
  52. R will plot but won’t draw abline
  53. scale_fill_discrete and scale_fill_manual – legend options confusion
  54. ‘Incomplete final line’ warning when trying to read a .csv file into R
  55. Merging data – Error in fix.by(by.x, x)
  56. Error : Unable to start png() device
  57. How do I flip rows and columns in R
  58. Remove NA values from a vector
  59. How to catch integer(0)?
  60. Print string and variable contents on the same line in R
  61. Does R have a wildcard expression (such as an asterisk (*))?
  62. r random forest error – type of predictors in new data do not match
  63. Simple for loop in R producing “replacement has length zero” in R
  64. Removing punctuations from text using R
  65. How to find out which package version is loaded in R?
  66. How to solve it. error:Error in data[[rowvar]] : attempt to select less than one element
  67. How to melt and cast dataframes using dplyr?
  68. Gradient of n colors ranging from color 1 and color 2
  69. How to prevent scientific notation in R?
  70. How to declare a vector of zeros in R
  71. Launching R help: Error in file(out, “wt”) : cannot open the connection
  72. Boolean operators && and ||
  73. R avoiding “restarting interrupted promise evaluation” warning
  74. How to increase the font size of ggtitle in ggplot2
  75. do-while loop in R
  76. Error in as.vector(x, mode) : cannot coerce type ‘closure’ to vector of type ‘any’
  77. Suppress output of a function
  78. Error in G * t(hat) : non-conformable arrays
  79. Get dplyr count of distinct in a readable way
  80. Error: isTRUE(gpclibPermitStatus()) is not TRUE
  81. What does is.na() applied to non-(list or vector) of type ‘NULL’ mean?
  82. error r: invalid subscript type “closure” in a simple regression
  83. Merge two rows in data.frame
  84. Colour points in a plot differently depending on a vector of values
  85. How to access the last value in a vector?
  86. increase legend font size ggplot2
  87. Mask output of `The following objects are masked from….:` after calling attach() function
  88. How To Create Vector of Vector In R
  89. Round down a numeric
  90. Use of ~ (tilde) in R programming Language
  91. Construct a manual legend for a complicated plot
  92. Code to clear all plots in RStudio
  93. Error: x must be atomic for ‘sort.list’
  94. Installing R on Android
  95. Transposing in dplyr
  96. Can dplyr join on multiple columns or composite key?
  97. Convert data.frame column to a vector?
  98. Error in summary.connection(connection) : invalid connection
  99. Converting from a character to a numeric data frame
  100. When trying to replace values, “missing values are not allowed in subscripted assignments of data frames”

Leave a Comment