R - 在Shiny Apps中使用TileMaker

Question

我想在我的閃亮應用中添加一些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") 
}) 
}) 

ui.R

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

我搜索過一段時間，但沒有相關的討論，我試了渲染圖和renderimage但都沒有工作。 TilmeMaker是另一種渲染類型還是不能用於閃亮的應用程序？任何意見表示讚賞。謝謝。

Answer 1

你需要renderUI（如果你想創建服務器端瓦），而不是需要保存（如幫助表示

「如果你想只用HTML代碼（適用於 儀表盤插入或另一文件中，可以使用的div」

）

例

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)