Сохранить HTML-код из xtable в строке
0
Я создаю таблицу корреляции с http://myowelt.blogspot.com/2008/04/beautiful-correlation-tables-in-r.html Я хочу напечатать вывод в html
print(xtable(corstarsl(airquality)),type="html")
<!-- html table generated in R 3.0.2 by xtable 1.7-1 package -->
<!-- Tue Apr 22 11:45:02 2014 -->
<TABLE border=1>
<TR> <TH> </TH> <TH> Ozone </TH> <TH> Solar.R </TH> <TH> Wind </TH> <TH> Temp </TH> <TH> Month </TH> </TR>
<TR> <TD align="right"> Ozone </TD> <TD> </TD> <TD> </TD> <TD> </TD> <TD> </TD> <TD> </TD> </TR>
<TR> <TD align="right"> Solar.R </TD> <TD> 0.35*** </TD> <TD> </TD> <TD> </TD> <TD> </TD> <TD> </TD> </TR>
<TR> <TD align="right"> Wind </TD> <TD> -0.60*** </TD> <TD> -0.06 </TD> <TD> </TD> <TD> </TD> <TD> </TD> </TR>
<TR> <TD align="right"> Temp </TD> <TD> 0.70*** </TD> <TD> 0.28*** </TD> <TD> -0.46*** </TD> <TD> </TD> <TD> </TD> </TR>
<TR> <TD align="right"> Month </TD> <TD> 0.16+ </TD> <TD> -0.08 </TD> <TD> -0.18* </TD> <TD> 0.42*** </TD> <TD> </TD> </TR>
<TR> <TD align="right"> Day </TD> <TD> -0.01 </TD> <TD> -0.15+ </TD> <TD> 0.03 </TD> <TD> -0.13 </TD> <TD> -0.01 </TD> </TR>
</TABLE>
Я хочу сохранить html-код в строке, чтобы потом генерировать html-вывод. Я попытался сделать capture output но это не спасет код.
1 ответ
1
result = FALSE 'тоже должен это сделать.
пример:
x<- print(xtable(head(iris, 10)),type="html", print.results=FALSE)
Единственным недостатком является то, что print(x) выглядит уродливым:
"<!-- html table generated in R 3.0.1 by xtable 1.7-3 package -->\n<!-- Tue Jul 15
09:15:59 2014 -->\n<TABLE class='table' style=max-width:50%;>\n<TR> <TH> Sepal.Length
</TH> <TH> Sepal.Width </TH> <TH> Petal.Length </TH> <TH> Petal.Width </TH> <TH>
Species </TH> </TR>\n <TR> <TD align=\"right\"> 5.10 </TD> <TD align=\"right\"> 3.50
</TD> <TD align=\"right\"> 1.40 </TD> <TD align=\"right\"> 0.20 </TD> <TD> setosa
</TD> </TR>\n <TR> <TD align=\"right\"> 4.90 </TD> <TD align=\"right\"> 3.00 </TD>
<TD align=\"right\"> 1.40 </TD> <TD align=\"right\"> 0.20 </TD> <TD> setosa </TD>
</TR>\n <TR> <TD align=\"right\"> 4.70 </TD> <TD align=\"right\"> 3.20 </TD> <TD
align=\"right\"> 1.30 </TD> <TD align=\"right\"> 0.20 </TD> <TD> setosa </TD> </TR>\n
<TR> <TD align=\"right\"> 4.60 </TD> <TD align=\"right\"> 3.10 </TD> <TD
align=\"right\"> 1.50 </TD> <TD align=\"right\"> 0.20 </TD> <TD> setosa </TD> </TR>\n
<TR> <TD align=\"right\"> 5.00 </TD> <TD align=\"right\"> 3.60 </TD> <TD
align=\"right\"> 1.40 </TD> <TD align=\"right\"> 0.20 </TD> <TD> setosa </TD> </TR>\n
<TR> <TD align=\"right\"> 5.40 </TD> <TD align=\"right\"> 3.90 </TD> <TD
align=\"right\"> 1.70 </TD> <TD align=\"right\"> 0.40 </TD> <TD> setosa </TD> </TR>\n
<TR>
<TD align=\"right\"> 4.60 </TD> <TD align=\"right\"> 3.40 </TD> <TD align=\"right\">
1.40 </TD> <TD align=\"right\"> 0.30 </TD> <TD> setosa </TD> </TR>\n <TR> <TD
align=\"right\"> 5.00 </TD> <TD align=\"right\"> 3.40 </TD> <TD align=\"right\"> 1.50
</TD> <TD align=\"right\"> 0.20 </TD> <TD> setosa </TD> </TR>\n <TR> <TD
align=\"right\"> 4.40 </TD> <TD align=\"right\"> 2.90 </TD> <TD align=\"right\"> 1.40
</TD> <TD align=\"right\"> 0.20 </TD> <TD> setosa </TD> </TR>\n <TR> <TD
align=\"right\"> 4.90 </TD> <TD align=\"right\"> 3.10 </TD> <TD align=\"right\"> 1.50
</TD> <TD align=\"right\"> 0.10 </TD> <TD> setosa </TD> </TR>\n </TABLE>\n"
вместо этого используйте cat(x):
<!-- html table generated in R 3.0.1 by xtable 1.7-3 package -->
<!-- Tue Jul 15 09:15:59 2014 -->
<TABLE class='table' style=max-width:50%;>
<TR> <TH> Sepal.Length </TH> <TH> Sepal.Width </TH> <TH> Petal.Length </TH> <TH> Petal.Width </TH> <TH> Species </TH> </TR>
<TR> <TD align="right"> 5.10 </TD> <TD align="right"> 3.50 </TD> <TD align="right"> 1.40 </TD> <TD align="right"> 0.20 </TD> <TD> setosa </TD> </TR>
<TR> <TD align="right"> 4.90 </TD> <TD align="right"> 3.00 </TD> <TD align="right"> 1.40 </TD> <TD align="right"> 0.20 </TD> <TD> setosa </TD> </TR>
<TR> <TD align="right"> 4.70 </TD> <TD align="right"> 3.20 </TD> <TD align="right"> 1.30 </TD> <TD align="right"> 0.20 </TD> <TD> setosa </TD> </TR>
<TR> <TD align="right"> 4.60 </TD> <TD align="right"> 3.10 </TD> <TD align="right"> 1.50 </TD> <TD align="right"> 0.20 </TD> <TD> setosa </TD> </TR>
<TR> <TD align="right"> 5.00 </TD> <TD align="right"> 3.60 </TD> <TD align="right"> 1.40 </TD> <TD align="right"> 0.20 </TD> <TD> setosa </TD> </TR>
<TR> <TD align="right"> 5.40 </TD> <TD align="right"> 3.90 </TD> <TD align="right"> 1.70 </TD> <TD align="right"> 0.40 </TD> <TD> setosa </TD> </TR>
<TR> <TD align="right"> 4.60 </TD> <TD align="right"> 3.40 </TD> <TD align="right"> 1.40 </TD> <TD align="right"> 0.30 </TD> <TD> setosa </TD> </TR>
<TR> <TD align="right"> 5.00 </TD> <TD align="right"> 3.40 </TD> <TD align="right"> 1.50 </TD> <TD align="right"> 0.20 </TD> <TD> setosa </TD> </TR>
<TR> <TD align="right"> 4.40 </TD> <TD align="right"> 2.90 </TD> <TD align="right"> 1.40 </TD> <TD align="right"> 0.20 </TD> <TD> setosa </TD> </TR>
<TR> <TD align="right"> 4.90 </TD> <TD align="right"> 3.10 </TD> <TD align="right"> 1.50 </TD> <TD align="right"> 0.10 </TD> <TD> setosa </TD> </TR>
</TABLE>
tertra
Поделиться
Ещё вопросы
- 0получить выбранный переключатель из группы
- 0Триггер базы данных MySQL не работает должным образом
- 0Как игнорировать файлы с заданным префиксом?
- 0Получение значения из строки JSON в чисто MySQL
- 1Составить 2d массив списка точек
- 0Вызовите функцию jquery, когда новый элемент отображается на странице
- 0Зачем нужен $ timeout здесь?
- 0Создание пакета установщика Windows
- 1Как я могу преобразовать изображение в оттенки серого, сохраняя прозрачность, используя cv2?
- 1Контроль кэша игнорируется
- 0Как вычесть количество моих продуктов, перечисленных в списке, непосредственно в мою базу данных продуктов? (Баз данных)
- 1преобразование значения java двухмерного массива (буквы) в целое число (число)
- 1Как установить адаптеры вложенных представлений рециркулятора при использовании привязки данных?
- 0SQL Query - Счет и сумма - Спортивная статистика
- 1Предзаказ дерева обхода копия папки
- 0Сравните 2 массива с array_diff
- 0спецификаторы формата не заменяются значениями в запросе select, передаваемом в mysql из python
- 0Изменить css объекта, используя jquery, итерируя по массиву объектов
- 1c # regexp заменяет токены, кроме тех, что в скобках
- 1Как найти ключевое слово над несколькими файлами с помощью VsVim
- 0PHP - Symfony2 Функциональное тестирование HTTPS-маршрутов
- 0Попытка приравнять struct [array] .variable к символу, которому он соответствует из ввода / вывода [duplicate]
- 1элементы графика времени vis.js в неправильном положении
- 0Использование CONCAT с оператором CASE работает некорректно
- 0сделать выбор радиоблока и флажка обязательным в угловом JS
- 1заявление о пафосе
- 0Как получить атрибуты внутри тега в узле с SimpleXML в PHP
- 0Как сгенерировать серийный номер при выборе всех данных из таблицы?
- 0Угловые шаблоны не загружаются
- 0Apache conf для nginx conf, чтобы избежать CORS
- 1Проблемы с парсингом Beautiful Soup XML в Python
- 1Angular CLI использует SystemJS?
- 1Есть несколько хороших конструкторов, и Room выберет конструктор без аргументов. Как решить это предупреждение
- 0Цвет наложения JQuery FancyBox
- 1Получение значения с нулем при попытке объединить orderByChild () и startAt ()
- 1Удалить строку заголовка по умолчанию JInternalFrame
- 1Свободный оптимистичный замок NHibernate и ленивая нагрузка
- 0AngularUI $ StateParams несколько параметров возвращается неопределенный
- 0Magento получить значение атрибута выпадающего с php
- 1возникли проблемы с совместимостью заданий?
- 0Программа SFML 2.1 работает нормально в режиме отладки, но вылетает в режиме выпуска
- 0Как использовать jQuery «автозаполнение источника» внутри цикла JavaScript для?
- 0действие, если все классы имеют определенный статус
- 1Не удается открыть новый блокнот Python или R в студии машинного обучения Azure
- 1Добавить DataFrame внутри функции
- 0C ++ - Изменить приватный член вне класса
- 1Невозможно выполнить Javascript из метода Wicket renderHead во второй раз
- 1Вернуть строку с разделителями-запятыми, используя только значения
- 0Mysql Ошибка подключения к базе данных
capture.outputработает нормально:x = capture.output(print(xtable(corstarsl(airquality)),type="html")). Возможно, вам придется использоватьpasteчтобы свернуть его в один символьный элемент.