let
Source = Web.BrowserContents("www.bbc.co.uk"),
#"Extracted Table From Html" = Html.Table(Source, {{"Column1", ".module--highlight .media__link"}, {"Column2", ".module--highlight .media__tag"}, {"Column3", ".module--highlight .block-link__overlay-link"}, {"Column4", ".module--highlight .module__title__link.tag"}, {"Column5", ".module--highlight .media__summary"}}, [RowSelector=".module--highlight .media__link"]),
#"Changed Type" = Table.TransformColumnTypes(#"Extracted Table From Html",{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"Column4", type text}, {"Column5", type text}}),
RScript = R.Execute("write.csv(dataset, paste0(""C://Temp/bbc "", format(Sys.time(), ""%d-%b-%Y %H.%M""), "".csv"")",[dataset=#"Changed Type"]),
out = RScript
in
out
Comments
Post a Comment