custom print for replies needs work

DESCRIPTION

@@ -10,7 +10,7 @@ Authors@R: c(
 Maintainer: Bob Rudis <bob@rud.is>
 Description: Something something 'DNS. Something something 'TLS'. 
     Something something 'getdns API/library'.
-SystemRequirements: C++11l libgetdns v1.5.1 or higher
+SystemRequirements: C++11; libgetdns v1.5.1 or higher
 URL: https://gitlab.com/hrbrmstr/clandnstine
 BugReports: https://gitlab.com/hrbrmstr/clandnstine/issues
 Encoding: UTF-8

R/resolver.R

@@ -155,11 +155,7 @@ print.gdns_response <- function(x, ...) {
     "\n", sep=""
   )
 
-  print(str(
-    x$replies_tree$answer[[1]]$rdata[
-      rr_fields[[as.character(unique(x$replies_tree$answer[[1]]$type))]]
-    ], 1
-  ))
+  print(str(x$replies_tree$answer[[1]]))
 
 }