小编H. *_*ong的帖子

library(dplyr)
df <- tibble(
  a = rnorm(10),
  b = rnorm(10),
  c = rnorm(10),
  d = rnorm(10)
)

df %>%
  arrange(colnames(df) %>% tail(1) %>% desc())

我正在循环一个数据帧列表.数据框中有不同的列,每个列的最后一列可能有不同的名称.

我需要按其最后一列安排每个数据框.简单的情况看起来像上面的代码.

---
title: "Untitled"
runtime: shiny
output: html_document
---

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

```{r}
df <- data.frame(image = "http://www.ufotm.com/data/attachment/forum/201203/11/110705gf50r55yqcka5ffz.jpg", title = "here is a title")
DT::renderDataTable(df,
                escape = FALSE,
                rownames = FALSE,
                extensions = 'Buttons', options = list(
                    dom = 'lBfrtip',
                    buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
                    )
)
```

我有图片网址。我尝试在 rmarkdown 或闪亮的应用程序中插入图像。我更喜欢DT图书馆，因为我可以下载 Excel 文件。我怎样才能做到这一点？

PS：我也想提供 Excel 或 pdf 文件供我的用户下载。

我尝试使用DataTables Options并找到相关问题。我尝试了下面的代码，它显示错误。

---
    title: "Untitled"
runtime: shiny
output: html_document
---

df …