如何在 R-Studio 中查看 html？

Question

在 R-Studio 中，我从这个网站运行代码： 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 文本打印在我的控制台窗格中。 如何在 R-Studio 中查看表格？

Answer 1

一种选择是创建一个RMD文件（使用选项File -> New File -> R Markdown...从Rstudio创建一个新文件）

然后在块中指定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")


```

-输出

---

或者，如果我们不想创建RMD文件，另一种选择是创建一个类似于此处显示的函数

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")

- 在查看器中输出