A function to download htm files of the Congressional Record for a given url address)

get_cr_htm(url)

Arguments

url

Details

Value

References

Author

Note

See also

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--  or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (url)
{
    url %<>% html_session() %>% follow_link("View TXT in new window")
    file <- str_remove(url$url, ".*modified/")
    if (!file %in% downloaded) {
        read_html(url) %>% write_html(file = here::here("data",
            "htm", file))
    }
  }
#> function (url)
#> {
#>     url %<>% html_session() %>% follow_link("View TXT in new window")
#>     file <- str_remove(url$url, ".*modified/")
#>     if (!file %in% downloaded) {
#>         read_html(url) %>% write_html(file = here::here("data",
#>             "htm", file))
#>     }
#>   }
#> <environment: 0x1382deeb8>