R-在闪亮的应用程序中使用TileMaker

我想在我闪亮的应用程序中添加一些TileMaker元素，使其成为更好的仪表板（但我没有使用shinydashboard结构）。请参阅下面的server.R和ui.R以了解最简单的示例：

Server.R

library(shiny)
library(TileMaker)
shinyServer(function(input, output) {

Tilemaker<-renderPlot({

  Button1 <- ButtonMaker(Color = 2,Value = 3.57,Subtitle = "Times apple eaten")
  Button2 <- ButtonMaker(Color = 3,Value = 13.7,Subtitle = "Nutritional value")
  Button3 <- ButtonMaker(Color = 4,Value = 1,Subtitle = "Yumminess factor")
  Button4 <- ButtonMaker(Color = 5,Size=1,Value = 5,Subtitle = "Inconsistencies")
  Div1 <- DivMaker(Title = "Quantativity factors",Buttons = paste(Button1,Button2))
  Div2 <- DivMaker(Title = "Implementation procedures",Buttons = paste(Button3,Button4))
  TileMaker(MainTitle = "Hello",Divs = paste(Div1,Div2), FileName = "123.html")
  browseURL("123.html")
 })  
})

library(shiny)
shinyUI(fluidPage(
mainPanel(
      navlistPanel(
    tabPanel("Tilemaker",h1("Tilemaker"),plotOutput(Tilemaker))
   )
  )
 ) 
)

---

我已经搜索了一段时间，但没有相关的讨论，我尝试了renderplot和renderimage，但都不起作用。TilmeMaker是另一种渲染类型，还是无法在shiny应用程序中使用？任何建议都将不胜感激。谢谢

您需要

renderUI

（如果您想在服务器端创建互动程序），而不需要保存（如“帮助”中所述）

“如果您只需要HTML代码（适合插入 仪表板或其他文档，您可以使用Divs“

)

例子

库（闪亮）
图书馆（TileMaker）
服务器=shinyServer（功能（输入、输出）{
output$Tilemaker上面的代码完美地解决了这个问题，现在Tilemaker和Shinny得到了极大的集成。
library(shiny)
library(TileMaker)
server=shinyServer(function(input, output) {

  output$Tilemaker<-renderUI({

    Button1 <- ButtonMaker(Color = 2,Value = 3.57,Subtitle = "Times apple eaten")
    Button2 <- ButtonMaker(Color = 3,Value = 13.7,Subtitle = "Nutritional value")
    Button3 <- ButtonMaker(Color = 4,Value = 1,Subtitle = "Yumminess factor")
    Button4 <- ButtonMaker(Color = 5,Size=1,Value = 5,Subtitle = "Inconsistencies")
    Div1 <- DivMaker(Title = "Quantativity factors",Buttons = paste(Button1,Button2))
    Div2 <- DivMaker(Title = "Implementation procedures",Buttons = paste(Button3,Button4))
    return( list(h1("Hello"),HTML(Div1,Div2)))
  })  
})

ui=shinyUI(fluidPage(
  mainPanel(
    navlistPanel(
      tabPanel("Tilemaker",h1("Tilemaker"),uiOutput("Tilemaker"))
    )
  )
) 
)

shinyApp(ui,server)