I hereby claim:
- I am mbjones on github.
- I am mbjones (https://keybase.io/mbjones) on keybase.
- I have a public key whose fingerprint is AF42 17D9 18A4 4581 2B07 0682 6D3F 2BB3 48B5 8AF7
To claim this, I am signing this object:
#' Produces a merged foo dataset where the columns are merged from seperate data files. | |
#' | |
#' More detailed description here | |
#' @param datasetnums a list of the numeric datasets to be merged | |
#' @return the merged data frame | |
mergedata <- function(datasetnums) { | |
# Assume directory structure such as: | |
#data | |
# -- data1.R |
library(XML) | |
library(httr) | |
post_url <- "http://www.adfg.alaska.gov/index.cfm?adfg=CommercialByFisherySalmon.exvesselquery" | |
post_body <- list(year="2014", areas= "allareas", speciesx= "allspecies", submit= "Find%20the%20Data") | |
html <- POST(post_url, body = post_body, encode = "form") | |
akcommdf_2014 <- readHTMLTable(content(html))[[1]] | |
#View(akcommdf_2014) |
I hereby claim:
To claim this, I am signing this object: