library(knitr)
knit_print.foo = function(input,...){
asis_output(input)}
test <- "<table style=\"border-collapse:collapse; border:none;\">\n <caption style=\"font-weight: bold; text-align:left;\">elder's dependency</caption>\n <tr>\n <th style=\"border-top:double; text-align:center; font-style:italic; font-weight:normal; padding-left:0.2cm; padding-right:0.2cm; border-bottom:1px solid; \">value</th>\n <th style=\"border-top:double; text-align:center; font-style:italic; font-weight:normal; padding-left:0.2cm; padding-right:0.2cm; border-bottom:1px solid;\">N</th>\n <th style=\"border-top:double; text-align:center; font-style:italic; font-weight:normal; padding-left:0.2cm; padding-right:0.2cm; border-bottom:1px solid;\">raw %</th>\n <th style=\"border-top:double; text-align:center; font-style:italic; font-weight:normal; padding-left:0.2cm; padding-right:0.2cm; border-bottom:1px solid;\">valid %</th>\n <th style=\"border-top:double; text-align:center; font-style:italic; font-weight:normal; padding-left:0.2cm; padding-right:0.2cm; border-bottom:1px solid;\">cumulative %</th>\n </tr>\n\n <tr>\n <td style=\"padding:0.2cm; text-align:left; \">independent</td>\n <td style=\"padding:0.2cm; text-align:center;\">66</td>\n <td style=\"padding:0.2cm; text-align:center;\">7.27</td>\n <td style=\"padding:0.2cm; text-align:center;\">7.33</td>\n <td style=\"padding:0.2cm; text-align:center;\">7.33</td>\n </tr>\n \n <tr>\n <td style=\"padding:0.2cm; text-align:left; \">slightly dependent</td>\n <td style=\"padding:0.2cm; text-align:center;\">225</td>\n <td style=\"padding:0.2cm; text-align:center;\">24.78</td>\n <td style=\"padding:0.2cm; text-align:center;\">24.97</td>\n <td style=\"padding:0.2cm; text-align:center;\">32.30</td>\n </tr>\n \n <tr>\n <td style=\"padding:0.2cm; text-align:left; \">moderately dependent</td>\n <td style=\"padding:0.2cm; text-align:center;\">306</td>\n <td style=\"padding:0.2cm; text-align:center;\">33.70</td>\n <td style=\"padding:0.2cm; text-align:center;\">33.96</td>\n <td style=\"padding:0.2cm; text-align:center;\">66.26</td>\n </tr>\n \n <tr>\n <td style=\"padding:0.2cm; text-align:left; \">severely dependent</td>\n <td style=\"padding:0.2cm; text-align:center;\">304</td>\n <td style=\"padding:0.2cm; text-align:center;\">33.48</td>\n <td style=\"padding:0.2cm; text-align:center;\">33.74</td>\n <td style=\"padding:0.2cm; text-align:center;\">100.00</td>\n </tr>\n \n <tr>\n <td style=\"padding:0.2cm; text-align:left; border-top:1px solid; border-bottom:double; \">missings</td>\n <td style=\"padding:0.2cm; text-align:center; border-top:1px solid; border-bottom:double;\">7</td>\n <td style=\"padding:0.2cm; text-align:center; border-top:1px solid; border-bottom:double;\">0.77</td>\n <td style=\"padding:0.2cm; border-top:1px solid; border-bottom:double;\"></td>\n <td style=\"padding:0.2cm; border-top:1px solid; border-bottom:double;\"></td>\n </tr>\n<tr>\n<td style=\"padding:0.2cm; text-align:right; font-style:italic; font-size:0.9em; padding-top:0.1cm; padding-bottom:0.1cm;\" colspan=\"5\">total N=908 · valid N=901 · x̄=2.94 · σ=0.94</td>\n </tr>\n </table>"class(test) = "foo"
test