change link to full link text

Susan Vanderplas · Susan Vanderplas · commit 934e669ca4d8 · 2025-01-06T10:14:51.000-06:00
diff --git a/part-gen-prog/06-debugging.qmd b/part-gen-prog/06-debugging.qmd
@@ -512,7 +512,7 @@ search_for_parent <- function(node, tag) {
   if (length(matches) == 1) return(parents[min_match]) else return(NULL)
 }
 
-page <- read_html("shorturl.at/jkS59")
+page <- read_html("https://srvanderplas.github.io/stat-computing-r-python/files/realclearpolitics_frag.html")
 # find all poll results in any table
 poll_results <- xml_find_all(page, "//td[@class='lp-results']") 
 # find the table that contains it

Original file line number	Diff line number	Diff line change
`@@ -512,7 +512,7 @@ search_for_parent <- function(node, tag) {`
`512`	`512`	`if (length(matches) == 1) return(parents[min_match]) else return(NULL)`
`513`	`513`	`}`
`514`	`514`
`515`		`-page <- read_html("shorturl.at/jkS59")`
	`515`	`+page <- read_html("https://srvanderplas.github.io/stat-computing-r-python/files/realclearpolitics_frag.html")`
`516`	`516`	`# find all poll results in any table`
`517`	`517`	`poll_results <- xml_find_all(page, "//td[@class='lp-results']")`
`518`	`518`	`# find the table that contains it`