代码之家 › 专栏 › 技术社区 › Sylvia Rodriguez

如何在R-Studio中查看html?

datatable html-table r html

1

Sylvia Rodriguez · 技术社区 · 5 年前

https://cran.r-project.org/web/packages/ztable/vignettes/heatmapTable.html ,特别是下面的代码。

 install.packages("ztable")
 if(!require(devtools)) install.packages("devtools")
 devtools::install_github("cardiomoon/ztable")
 require(moonBook)
 x=table(acs$Dx,acs$smoking)
 library(ztable)
 library(magrittr)
 options(ztable.type="html")
 z=ztable(x) 
 print(z,caption="Table 1. Basic Table")

我希望在R-Studio绘图或查看器窗格中看到该表,但是html文本是在控制台窗格中打印的。我怎么能在演播室里看桌子?

1 回复 | 直到 5 年前

1

akrun 5 年前

一个选择是创建一个 RMD 文件(从中创建新文件 Rstudio 有选择权 File -> New File -> R Markdown...

然后指定 results = 'asis' Knit -> Knit to HTML

-RMD文件内容

---
title: "Ztable"
author: "akrun"
date: "01/11/2020"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## R Markdown



```{r ztable, results = 'asis', echo = FALSE}
suppressPackageStartupMessages(library(moonBook))
x=table(acs$Dx,acs$smoking)
suppressPackageStartupMessages(library(ztable))
suppressPackageStartupMessages(library(magrittr))
options(ztable.type="html")
z=ztable(x) 

print(z,caption="Table 1. Basic Table")


```

-输出

文件是创建一个类似于显示的函数 here

view_ztable <- function(x, ...){
  tab <- paste(capture.output(ztable(x, ...)), collapse = '\n')
  tf <- tempfile(fileext = ".html")
  writeLines(tab, tf)
  rstudioapi::viewer(tf)
}
view_ztable(x, format = 'html', table.attr = "class=nofluid")