Question

我有一个非常简单的应用程序显示一些数据。如何使用iframe将其嵌入SharePoint网站？或者有更简单的方法吗？

library(ggplot2)
library(shiny)
library(DT)
library(readr)

PRTypeCount <- read_csv("H:/SP/PRTypeCount.txt")



ui <- navbarPage(
title = 'PRTypeCount',
tabPanel('PRTypeCount', DT::dataTableOutput('PRTypeCount')))

server<-function(input, output) {

output$PRTypeCount <- DT::renderDataTable(
DT::datatable(PRTypeCount, options = list(pageLength = 25))
)

}

shinyApp(ui = ui, server = server)

Answer 1

如果您没有闪亮的服务器，最好的选择可能是flexdashboard软件包或制作单独的组件并将它们安排在SharePoint设计器中。这是一个简单的例子，与闪亮相比，你会对交互性有所限制 - 你可以用plotly，ggiraph和其他一些软件包来做一些事情。对于许多用例，这可能是完全足够的：

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
DT::datatable(iris)
```

Column {data-width=350}
-----------------------------------------------------------------------

### Chart B

```{r}

hist(iris$Sepal.Length)

```

### Chart C

```{r}
plot(iris$Sepal.Length, iris$Sepal.Width)

```

将此rmd文件编织为html后。您可以制作HTML文件的副本并将扩展名更改为.aspx。

然后您可以将此.aspx文件放入文档库中。

然后添加要在其中显示内容的页面查看器Web部件，将其链接到文档库中的.aspx文件。

如何使用Iframe标记在SharePoint上嵌入闪亮的应用程序

1 个答案: