我可以使用index.html和ui.r作爲我的閃亮界面嗎？

Question

參考this關於如何在HTML中完全構建閃亮的應用程序，我想知道是否有任何方法將這種方法與使用傳統的ui.r方法結合使用。

原因：This使用D3與R Shiny的方法似乎需要將所有D3代碼放入index.html文件中。但我也想要一些交互性（selectInputs，dateRangeInputs，多個選項卡等）。有什麼建議？

Answer 1

您可以使用tags將自定義HTML添加到您的ui.R。

對於更復雜的輸出，您可以在使用ui.R和server.R的應用程序時構建自定義閃光輸出。 This page有關於如何爲任何代碼執行此操作的信息。

下面是使用您發佈的D3示例中的JavaScript代碼的示例。 該應用只是生成的情節，我加了一個selectInput在哪裏你可以選擇它繪製的數據來顯示如何整合。所有的JavaScript代碼是由mbostock。 （可以找到here）。

我添加了閃亮的綁定部分，並更改了幾行以適應應用程序，我在上面評論了更改，以便您可以跟蹤它們。

ui.R

library(shiny) 

shinyUI(
    fluidPage(singleton(tags$head(
    #adds the d3 library needed to draw the plot 
    tags$script(src="http://d3js.org/d3.v3.min.js"), 

    #the js script holding the code to make the custom output 
    tags$script(src="HierarchicalEdgeBundling.js"), 

    #the stylesheet, paste all that was between the <style> tags from your example in the graph_style.css file 
    tags$link(rel = "stylesheet", type = "text/css", href = "graph_style.css") 
)), 
    mainPanel(

     #this select input allows the user to choose json files in the www directory 
     selectInput("data_files", "JSON files:" , as.matrix(list.files(path="www",pattern="json"))), 

     #this div will hold the final graph 
     div(id="graph", class="HierarchicalEdgeBundling") 
    )   
) 
) 

server.R

shinyServer(function(input, output, session) { 

    #output to the graph div 
    output$graph <- reactive({ 
    #get the selected file 
    input$data_files 
    }) 
}) 

HierarchicalEdgeBundling.js

//shiny output binding 
var binding = new Shiny.OutputBinding(); 

binding.find = function(scope) { 
     return $(scope).find(".HierarchicalEdgeBundling"); 
}; 



binding.renderValue = function(el, data) { 
//empty the div so that it removes the graph when you change data 
    $(el).empty() 

if(data!=null){ 
    var diameter = 960, 
     radius = diameter/2, 
     innerRadius = radius - 120; 

    var cluster = d3.layout.cluster() 
     .size([360, innerRadius]) 
     .sort(null) 
     .value(function(d) { return d.size; }); 

    var bundle = d3.layout.bundle(); 

    var line = d3.svg.line.radial() 
     .interpolate("bundle") 
     .tension(.85) 
     .radius(function(d) { return d.y; }) 
     .angle(function(d) { return d.x/180 * Math.PI; }); 

    //select the div that has the same id as the el id 
    var svg = d3.select("#" + $(el).attr('id')).append("svg") 
     .attr("width", diameter+300) 
     .attr("height", diameter+300) 
    .append("g") 
     .attr("transform", "translate(" + radius + "," + radius + ")"); 

    var link = svg.append("g").selectAll(".link"), 
     node = svg.append("g").selectAll(".node"); 

    //add the data from the user input 
    d3.json(data, function(error, classes) { 
    var nodes = cluster.nodes(packageHierarchy(classes)), 
     links = packageImports(nodes); 

    link = link 
     .data(bundle(links)) 
     .enter().append("path") 
     .each(function(d) { d.source = d[0], d.target = d[d.length - 1]; }) 
     .attr("class", "link") 
     .attr("d", line); 

    node = node 
     .data(nodes.filter(function(n) { return !n.children; })) 
     .enter().append("text") 
     .attr("class", "node") 
     .attr("dy", ".31em") 
     .attr("transform", function(d) { return "rotate(" + (d.x - 90) + ")translate(" + (d.y + 8) + ",0)" + (d.x < 180 ? "" : "rotate(180)"); }) 
     .style("text-anchor", function(d) { return d.x < 180 ? "start" : "end"; }) 
     .text(function(d) { return d.key; }) 
     .on("mouseover", mouseovered) 
     .on("mouseout", mouseouted); 
    }); 

    function mouseovered(d) { 
    node 
     .each(function(n) { n.target = n.source = false; }); 

    link 
     .classed("link--target", function(l) { if (l.target === d) return l.source.source = true; }) 
     .classed("link--source", function(l) { if (l.source === d) return l.target.target = true; }) 
     .filter(function(l) { return l.target === d || l.source === d; }) 
     .each(function() { this.parentNode.appendChild(this); }); 

    node 
     .classed("node--target", function(n) { return n.target; }) 
     .classed("node--source", function(n) { return n.source; }); 
    } 

    function mouseouted(d) { 
    link 
     .classed("link--target", false) 
     .classed("link--source", false); 

    node 
     .classed("node--target", false) 
     .classed("node--source", false); 
    } 

    d3.select(self.frameElement).style("height", diameter + "px"); 

    // Lazily construct the package hierarchy from class names. 
    function packageHierarchy(classes) { 
    var map = {}; 

    function find(name, data) { 
     var node = map[name], i; 
     if (!node) { 
     node = map[name] = data || {name: name, children: []}; 
     if (name.length) { 
      node.parent = find(name.substring(0, i = name.lastIndexOf("."))); 
      node.parent.children.push(node); 
      node.key = name.substring(i + 1); 
     } 
     } 
     return node; 
    } 

    classes.forEach(function(d) { 
     find(d.name, d); 
    }); 

    return map[""]; 
    } 

    // Return a list of imports for the given array of nodes. 
    function packageImports(nodes) { 
    var map = {}, 
     imports = []; 

    // Compute a map from name to node. 
    nodes.forEach(function(d) { 
     map[d.name] = d; 
    }); 

    // For each import, construct a link from the source to target node. 
    nodes.forEach(function(d) { 
     if (d.imports) d.imports.forEach(function(i) { 
     imports.push({source: map[d.name], target: map[i]}); 
     }); 
    }); 

    return imports; 
    } 
} 
}; 

//register the output binding 
Shiny.outputBindings.register(binding, "HierarchicalEdgeBundling"); 

要使該應用程序的工作，你需要在同一目錄下創建一個www文件夾作爲ui.R和server.R，並把其中的HierarchicalEdgeBundling.js文件，CSS的一個graph_style.css文件中找到here和JSON數據文件（例如data1.json或data2.json）。

Answer 2

我的理解是，使用index.html是ui.R的替代品，在需要使用HTML代碼的成本中提供更多的功能（與「開箱即用」的閃亮功能類似selectInputs等......這些實際上只是將一系列輸入轉換爲HTML代碼）。

要找到index.html中的等價函數，一個提示是創建您的ui.R，然後在瀏覽器中查看頁面源代碼。這會給你正確的HTML代碼來實現你的閃亮應用程序。例如，一個選項卡可能如下所示：

<div class="container-fluid"> 
    <div class="tabbable tabs-above"> 
     <ul class="nav nav-tabs"> 
     <li class="active"> 
      <a href="#tab-5303-1" data-toggle="tab" data-value="Graphs">Graphs</a> 
     </li> 
     <li> 
      <a href="#tab-5303-2" data-toggle="tab" data-value="Size Data">Size Data</a> 
     </li> 
     <li> 
      <a href="#tab-5303-3" data-toggle="tab" data-value="Data Bins">Data Bins</a> 
     </li> 
     </ul> 

... 

<div class="tab-content"> 
     <div class="tab-pane active" data-value="Graphs" id="tab-5303-1"> 

... 

    </div> 
    </div> 

一旦您弄清楚如何將UI參數轉換爲HTML代碼，它非常簡單。您提供的鏈接提供了有關如何連接到服務器文件的很好摘要。