Below 3 data frames are identical. They all load the information within each file type (HTML, XML, JSON).

Load HTML file.

StrengthsFinder <- readLines("https://raw.githubusercontent.com/SieSiongWong/DATA-607/master/Book_StrengthsFinder2.0.htm")
StrengthsFinder
##  [1] "<!DOCTYPE html>"                                            
##  [2] "<html>"                                                     
##  [3] "<head>"                                                     
##  [4] "<style>"                                                    
##  [5] "table {"                                                    
##  [6] "  font-family: arial, sans-serif;"                          
##  [7] "  border-collapse: collapse;"                               
##  [8] "  width: 100%;"                                             
##  [9] "}"                                                          
## [10] ""                                                           
## [11] "td, th {"                                                   
## [12] "  border: 1px solid #dddddd;"                               
## [13] "  text-align: left;"                                        
## [14] "  padding: 7px;"                                            
## [15] "}"                                                          
## [16] ""                                                           
## [17] "tr:nth-child(even) {"                                       
## [18] "  background-color: #dddddd;"                               
## [19] "}"                                                          
## [20] "</style>"                                                   
## [21] "</head>"                                                    
## [22] "<body>"                                                     
## [23] ""                                                           
## [24] "<h1>Strengths Finder 2.0</h1>"                              
## [25] ""                                                           
## [26] "<h3>Author: Tom Rath</h3>"                                  
## [27] ""                                                           
## [28] "<p>Below table is some of the attributes for this book.</p>"
## [29] ""                                                           
## [30] "<table>"                                                    
## [31] "  <tr>"                                                     
## [32] "    <th>Attributes</th>"                                    
## [33] "  </tr>"                                                    
## [34] "  <tr>"                                                     
## [35] "    <td>Understand Your Unique Strengths</td>"              
## [36] "  </tr>"                                                    
## [37] "  <tr>"                                                     
## [38] "    <td>Working Effectively with Others</td>"               
## [39] "  </tr>"                                                    
## [40] "  <tr>"                                                     
## [41] "    <td>Achieving Lasting Fulfillment</td>"                 
## [42] "  </tr>"                                                    
## [43] "  <tr>"                                                     
## [44] "    <td>Time Management</td>"                               
## [45] "  </tr>"                                                    
## [46] "</table>"                                                   
## [47] ""                                                           
## [48] "</body>"                                                    
## [49] "</html>\t"

Load XML file.

WantYouToBeRich <- readLines("https://raw.githubusercontent.com/SieSiongWong/DATA-607/master/Book_WantYouToBeRich.xml")
WantYouToBeRich
##  [1] "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"                                                             
##  [2] "<bookstore>"                                                                                            
##  [3] "  <book category=\"Personal Finance\">"                                                                 
##  [4] "    <title>Why We Want You To Be Rich</title>"                                                          
##  [5] "    <author>Donald J. Trump, Robert T. Kiyosaki</author>"                                               
##  [6] "    <attributes1>rich are getting richer</attributes1>"                                                 
##  [7] "    <attributes2>you cannot solve money problems with money</attributes2>"                              
##  [8] "    <attributes3>middle class is disappearing and America is becoming a two-class society</attributes3>"
##  [9] "  </book>"                                                                                              
## [10] "</bookstore>"

Load JSON file.

SuccessStory <- readLines("https://raw.githubusercontent.com/SieSiongWong/DATA-607/master/Book_SuccessStory.json")
SuccessStory
## [1] "{"                                                                                                            
## [2] "    \"Book Title\": \"Outliers: The Story of Success\","                                                      
## [3] "    \"Author Name\": \" Malcolm Gladwell\","                                                                  
## [4] "    \"Attributes\": {"                                                                                        
## [5] "        \"Attributes1\": \"what makes high-achievers different\","                                            
## [6] "        \"Attributes2\": \"we have all too easily bought into the myth that successful people are self-made\""
## [7] "         }"                                                                                                   
## [8] "}"