光沢のあるアプリでHTMLプロットをレンダリングする方法

Question

光沢のあるアプリでHTMLプロットをレンダリングしたい。
レーダーチャートを参照してくださいhttp://www.buildingwidgets.com/blog/2015/12/9/week-49-d3radarr

しかし、このプロットは光沢のあるアプリには表示されません。

私はこの質問 plotGoogleMaps in shiny app

を参照してください。しかし、それは一種の異なるです。

このプロットを光沢のあるアプリでレンダリングする方法はありますか？

私のコードは以下の通りです：

library(shiny) 
library(d3radarR) 
library(jsonlite) 

dataset = jsonlite::fromJSON(
' 
    [ 
    { 
     "key":"Nokia Smartphone", 
     "values":[ 
     { "axis":"Battery Life", "value":0.26 }, { "axis":"Brand", "value":0.10 }, 
     { "axis":"Contract Cost", "value":0.30 }, { "axis":"Design And Quality", "value":0.14 }, 
     { "axis":"Have Internet Connectivity", "value":0.22 }, { "axis":"Large Screen", "value":0.04 }, 
     { "axis":"Price Of Device", "value":0.41 }, { "axis":"To Be A Smartphone", "value":0.30 } 
     ] 
    }, 
    { 
     "key":"Samsung", 
     "values":[ 
     { "axis":"Battery Life", "value":0.27 }, { "axis":"Brand", "value":0.16 }, 
     { "axis":"Contract Cost", "value":0.35 }, { "axis":"Design And Quality", "value":0.13 }, 
     { "axis":"Have Internet Connectivity", "value":0.20 }, { "axis":"Large Screen", "value":0.13 }, 
     { "axis":"Price Of Device", "value":0.35 }, { "axis":"To Be A Smartphone", "value":0.38 } 
     ] 
    }, 
    { 
     "key":"iPhone", 
     "values":[ 
     { "axis":"Battery Life", "value":0.22 }, { "axis":"Brand", "value":0.28 }, 
     { "axis":"Contract Cost", "value":0.29 }, { "axis":"Design And Quality", "value":0.17 }, 
     { "axis":"Have Internet Connectivity", "value":0.22 }, { "axis":"Large Screen", "value":0.02 }, 
     { "axis":"Price Of Device", "value":0.21 }, { "axis":"To Be A Smartphone", "value":0.50 } 
     ] 
    } 
    ] 
', 
    simplifyDataFrame = FALSE 
) 


ui <- pageWithSidebar(

    headerPanel("Rader Chart"), 

    sidebarPanel(

    selectInput('tmp1', 'Tmp1', c(None='.')), 
    selectInput('tmp2', 'Tmp2', c(None='.')) 

), 

    mainPanel(
    tabPanel("Plot", uiOutput('plot')) 
) 
) 

server <- function(input, output) { 

    output$plot <- renderUI({ 
    d3radar(json_data) 
    }) 
} 

shinyApp(ui=ui, server=server) 

Answer 1

をあなたはd3radarRパッケージから特定の光沢のある機能を使用する必要があります。

dataset = jsonlite::fromJSON(
    ' 
    [ 
    { 
    "key":"Nokia Smartphone", 
    "values":[ 
    { "axis":"Battery Life", "value":0.26 }, { "axis":"Brand", "value":0.10 }, 
    { "axis":"Contract Cost", "value":0.30 }, { "axis":"Design And Quality", "value":0.14 }, 
    { "axis":"Have Internet Connectivity", "value":0.22 }, { "axis":"Large Screen", "value":0.04 }, 
    { "axis":"Price Of Device", "value":0.41 }, { "axis":"To Be A Smartphone", "value":0.30 } 
    ] 
    }, 
    { 
    "key":"Samsung", 
    "values":[ 
    { "axis":"Battery Life", "value":0.27 }, { "axis":"Brand", "value":0.16 }, 
    { "axis":"Contract Cost", "value":0.35 }, { "axis":"Design And Quality", "value":0.13 }, 
    { "axis":"Have Internet Connectivity", "value":0.20 }, { "axis":"Large Screen", "value":0.13 }, 
    { "axis":"Price Of Device", "value":0.35 }, { "axis":"To Be A Smartphone", "value":0.38 } 
    ] 
    }, 
    { 
    "key":"iPhone", 
    "values":[ 
    { "axis":"Battery Life", "value":0.22 }, { "axis":"Brand", "value":0.28 }, 
    { "axis":"Contract Cost", "value":0.29 }, { "axis":"Design And Quality", "value":0.17 }, 
    { "axis":"Have Internet Connectivity", "value":0.22 }, { "axis":"Large Screen", "value":0.02 }, 
    { "axis":"Price Of Device", "value":0.21 }, { "axis":"To Be A Smartphone", "value":0.50 } 
    ] 
    } 
    ] 
    ', 
    simplifyDataFrame = FALSE 
) 


ui <- pageWithSidebar(

    headerPanel("Rader Chart"), 

    sidebarPanel(

    selectInput('tmp1', 'Tmp1', c(None='.')), 
    selectInput('tmp2', 'Tmp2', c(None='.')) 

), 

    mainPanel(
    tabPanel("Plot", d3radarOutput('plot')) 
) 
) 

server <- function(input, output) { 

    output$plot <- renderD3radar({ 
    d3radar(dataset) 
    }) 
} 

shinyApp(ui=ui, server=server)