GET(url=) returns only some data

httr
#1 
query3 <- "http://isc.sans.edu/api/port/80"
GET(url=query3)

Console Returns:

Response [https://isc.sans.edu/api/port/80]
Date: 2019-01-11 03:41
Status: 200
Content-Type: text/xml;charset=UTF-8
Size: 400 B

<?xml version="1.0" encoding="UTF-8"?> 802019-01-1161521523

How do I get it to return the whole page rather then end with ... pls?

#2

The data sent back from the server consists of three parts: the status line, the headers and the body, for example here I'm accessing the body.

library(httr)
query3 <- "http://isc.sans.edu/api/port/80"
response <- GET(url=query3)
content(response, "text")
#> [1] "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<port>\n<number>80</number><data><date>2019-01-11</date><records>6152</records><targets>1523</targets><sources>1438</sources><tcp>96</tcp><udp>1</udp><datein>2019-01-11</datein><portin>80</portin></data><services><udp><service>www</service><name>World Wide Web HTTP</name></udp><tcp><service>www</service><name>World Wide Web HTTP</name></tcp></services>\n</port>"