
<% if(n_total > 0) { %>

<details><summary>Dependency plot</summary>
<br>
<% tmp_file = tempfile(fileext = ".png")
  if(nrow(rev_tb) > 0) {
    png(tmp_file, width = 1200*1.5, height = 500*1.5, res = 72*2)
    l = df$package == pkg$package
    repo = ifelse(grepl("bioconductor", df$repository), "Bioconductor", "CRAN")
    color = ifelse(l, "highlight", "others")
    suppressMessages(suppressWarnings({
      p1 = ggplot2::ggplot(df, ggplot2::aes(n_children, heaviness_on_children, pch = repo, color = color, label = ifelse(l, df$package, ""))) +
        ggplot2::geom_point() + 
        ggplot2::scale_color_manual(values = c("highlight" = "red", "others" = "grey")) +
        ggplot2::scale_shape_manual(values = c("Bioconductor" = 16, "CRAN" = 4)) +
        ggplot2::scale_x_continuous(trans='log10') +
        ggrepel::geom_text_repel(min.segment.length = 0, box.padding = 0.5, max.overlaps = Inf, show.legend = FALSE, size =3) +
        ggplot2::labs(x = "Number of child packages", y = "Heaviness") +
        ggplot2::ggtitle("Heaviness on child packages for all CRAN/Bioconductor packages")

      p2 = ggplot2::ggplot(mapping = ggplot2::aes(all_heaviness)) + geom_histogram() +
        ggplot2::labs(x = "Heaviness on child packages", y = "Frequency") +
        ggplot2::ggtitle(qq("Histogram of heaviness of '@{pkg$package}' on its child packages"))

      print(cowplot::plot_grid(p1, p2, rel_widths = c(1.2, 1)))
    }))
     dev.off() 
  } else {
    png(tmp_file, width = 500*1.5, height = 500*1.5, res = 72*2)
    l = df$package == pkg$package
    repo = ifelse(grepl("bioconductor", df$repository), "Bioconductor", "CRAN")
    color = ifelse(l, "highlight", "others")
    suppressWarnings({
      p1 = ggplot2::ggplot(df, ggplot2::aes(n_children, heaviness_on_children, pch = repo, color = color, label = ifelse(l, df$package, ""))) +
        ggplot2::geom_point() + 
        ggplot2::scale_color_manual(values = c("highlight" = "red", "others" = "grey")) +
        ggplot2::scale_shape_manual(values = c("Bioconductor" = 16, "CRAN" = 4)) +
        ggplot2::scale_x_continuous(trans='log10') +
        ggrepel::geom_text_repel(min.segment.length = 0, box.padding = 0.5, max.overlaps = Inf, show.legend = FALSE, size =3) +
        ggplot2::labs(x = "Number of child packages", y = "Heaviness") +
        ggplot2::ggtitle("Heaviness on child packages for all CRAN/Bioconductor packages")
      ggplot2:::print.ggplot(p1)
    })
    dev.off() 
  }
 %>
<%= img(tmp_file, style="height:500px")%>
<% file.remove(tmp_file) %>

</details>

<style>
details summary {
    cursor: pointer;
}
summary {
    display: list-item;
}
details > summary:first-of-type {
    display: list-item;
    counter-increment: list-item 0;
    list-style: inside disclosure-closed;
}
details[open] > summary:first-of-type {
    list-style-type: disclosure-open;
}
</style>

<% 
has_imports = !any(is.na(pkg$df_imports[, 1]))
%>

<% if(n_used > 0) { %>
<% 
namespace_link = paste0("show_namespace(\"", rev_tb[, 1], "\")")
%>

<br>
<p>In total, <span class="package"><%=pkg$package%></span> has <%=n_total%> child packages. Only <%=n_used%> child packages with heaviness from <span class="package"><%=pkg$package%></span> larger than 10 are listed in the following table.</p>
<% if(has_imports) { %>
<p><b>imports:</b> number of imported functions/objects; <b>importMethods</b>: number of imported S4 methods; <b>importClasses</b>: number of imported S4 classes.</p>
<% } %>
<p><b>Heaviness of <span class="package"><%=pkg$package%></span> on child package:</b> number of extra dependency packages that <span class="package"><%=pkg$package%></span> uniquely imports to.</p>
<p>The full table can be obtained by:</p> 

<pre class="code">
library(pkgndep)
pkgndep_opt$heaviness_db_version = "<%=pkgndep_opt$heaviness_db_version%>"
child_dependency("<%=pkg$package%>")</pre>

<% rev_tb$package = qq("<a href='?package=@{rev_tb$package}'>@{rev_tb$package}</a>", collapse = FALSE)
  rev_tb = cbind(rev_tb[, 1:5], "namespace" = qq("<a onclick='@{namespace_link}' class='fake-link'>link</a>", collapse = FALSE), rev_tb[, 6:7, drop = FALSE])
if(has_imports) {
    html_rev_tb = as.character(knitr::kable(rev_tb, format = "html", row.names = FALSE, escape = FALSE, col.names = c("Child package", "Field", "imports", "importMethods", "importClasses", "NAMESPACE file", qq("Heaviness of <span class='package'>@{pkg$package}</span> on child package"), "Number of parent packages"), table.attr = "class='table table-striped' id='child-dependency'", align = c("l", rep("r", ncol(rev_tb) - 1))))
    html_rev_tb = gsub("(<td[^>]*?> Reverse Depends </td>\\s+)<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+", qq("\\1<td colspan=3 style='text-align:right;'>The whole set of functions/methods/classes from <span class='package'>@{pkg$package}</span> is imported to the namespace of child package.</td>\n"), html_rev_tb)
    html_rev_tb = gsub("(<td[^>]*?> Reverse Depends </td>\\s+)<td[^>]*?> -(\\d+) </td>\\s+<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+", qq("\\1<td colspan=3 style='text-align:right;'>The whole set of functions/methods/classes from <span class='package'>@{pkg$package}</span> excluding \\2 objects is imported to the namespace of child package.</td>\n"), html_rev_tb)
    html_rev_tb = gsub("(<td[^>]*?> Reverse Depends </td>\\s+)<td[^>]*?> -Inf </td>\\s+<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+", qq("\\1<td colspan=3 style='text-align:right;'>'@{pkg$package}' is listed in <code>Depends</code> of child package but no object from <span class='package'>@{pkg$package}</span> is imported.</td>\n"), html_rev_tb)
    html_rev_tb = gsub("(<td[^>]*?> Reverse Imports </td>\\s+)<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+", qq("\\1<td colspan=3 style='text-align:right;'>The whole set of functions/methods/classes from <span class='package'>@{pkg$package}</span> is imported to the namespace of child package.</td>\n"), html_rev_tb)
    html_rev_tb = gsub("(<td[^>]*?> Reverse Imports </td>\\s+)<td[^>]*?> -(\\d+) </td>\\s+<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+", qq("\\1<td colspan=3 style='text-align:right;'>The whole set of functions/methods/classes from <span class='package'>@{pkg$package}</span> excluding \\2 objects is imported to the namespace of child package.</td>\n"), html_rev_tb)
    html_rev_tb = gsub("(<td[^>]*?> Reverse Imports </td>\\s+)<td[^>]*?> -Inf </td>\\s+<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+", qq("\\1<td colspan=3 style='text-align:right;'>'@{pkg$package}' is listed in <code>Imports</code> of child package but no object from <span class='package'>@{pkg$package}</span> is imported.</td>\n"), html_rev_tb)
    html_rev_tb = gsub("(<td[^>]*?> Reverse LinkingTo </td>\\s+)<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+", qq("\\1<td colspan=3 style='text-align:right;'>The whole set of functions/methods/classes from <span class='package'>@{pkg$package}</span> is imported to the namespace of child package.</td>\n"), html_rev_tb)
    html_rev_tb = gsub("(<td[^>]*?> Reverse LinkingTo </td>\\s+)<td[^>]*?> -(\\d+) </td>\\s+<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+", qq("\\1<td colspan=3 style='text-align:right;'>he whole set of functions/methods/classes from <span class='package'>@{pkg$package}</span> excluding \\2 objects is imported to the namespace of child package.</td>\n"), html_rev_tb)
    html_rev_tb = gsub("(<td[^>]*?> Reverse LinkingTo </td>\\s+)<td[^>]*?> -Inf </td>\\s+<td[^>]*?> 0 </td>\\s+<td[^>]*?> 0 </td>\\s+", qq("\\1<td colspan=3 style='text-align:right;'>'@{pkg$package}' is listed in <code>LinkingTo</code> of <span class='package'>@{pkg$package}</span> but no object from <span class='package'>@{pkg$package}</span> is imported.</td>\n"), html_rev_tb)
} else {
    rev_tb = rev_tb[, !colnames(rev_tb) %in% c("imports", "importMethods", "importClasses"), drop = FALSE]
    html_rev_tb = as.character(knitr::kable(rev_tb, format = "html", row.names = FALSE, escape = FALSE, col.names = c("Child package", "Field", "NAMESPACE file", qq("Heaviness of <span class='package'>@{pkg$package}</span> on child package"), "Number of parent packages"), table.attr = "class='table table-striped' id='child-dependency'", align = c("l", rep("r", ncol(rev_tb) - 1))))
}
%>


<div class="form-box">
<form method="get" class="form-inline">
<div class="checkbox">
<% if(has_imports) { %> 
  <label>
      <input id="input-child-dep-prioritize-reducible" name="child_dep_prioritize_reducible" type="checkbox" <%=ifelse(child_dep_prioritize_reducible, 'checked=1', '')%>> Prioritize child packages of which the dependency from <span class="package"><%=pkg$package%></span> is reducible. In other words, they only import a limited number of functions from <span class="package"><%=pkg$package%></span>.
    </label>
<% } %>
  <label>
      <input id="input-child-dep-internal-ordering" name="child_dep_internal_ordering" type="checkbox" <%=ifelse(child_dep_internal_ordering, 'checked=1', '')%>> By default the table is ordered by <b>"Heaviness of <span class="package"><%=pkg$package%></span> on child package"</b>. Normally, if a child package has only a few parent packages (including <span class="package"><%=pkg$package%></span>), it is very likely that <span class="package"><%=pkg$package%></span> contributes dominant heaviness on it. By checking this box, the table will be reordered by values of <b>"heaviness of <span class="package"><%=pkg$package%></span> * number of parent packages"</b>, which will prioritize the child packages with large numbers of parent packages and <span class="package"><%=pkg$package%></span> still contribute high heaviness on them.
    </label>
  </div>
 </form>
</div>

 <script type="text/javascript">

  $(function() {
    $('#input-child-dep-prioritize-reducible').change(function() {
        update_ajax_table("child_dependency", "<%=pkg$package%>", 1, <%=records_per_page%>, {child_dep_prioritize_reducible:$('#input-child-dep-prioritize-reducible').prop("checked")+0,child_dep_internal_ordering:$('#input-child-dep-internal-ordering').prop("checked")+0});
    });
    $('#input-child-dep-internal-ordering').change(function() {
        update_ajax_table("child_dependency", "<%=pkg$package%>", 1, <%=records_per_page%>, {child_dep_prioritize_reducible:$('#input-child-dep-prioritize-reducible').prop("checked")+0,child_dep_internal_ordering:$('#input-child-dep-internal-ordering').prop("checked")+0});
    });
});
</script>

<%= html_rev_tb %>


<style>
.row-depends {
    border-left: 6px solid #d9534f;
}
.row-imports {
    border-left: 6px solid #f0ad4e;
}
.row-linkingto {
    border-left: 6px solid #337ab7;
}
.row-suggests {
    border-left: 6px solid #5cb85c;
}
.row-enhances {
    border-left: 6px solid #5bc0de;
}
</style>

<script>
$("#child-dependency tr td:nth-child(2)").each(function(index) {
    if($(this).text() == " Reverse Depends ") {
        $(this).parent().addClass("row-depends");
    } else if($(this).text() == " Reverse Imports ") {
        $(this).parent().addClass("row-imports");
    } else if($(this).text() == " Reverse LinkingTo ") {
        $(this).parent().addClass("row-linkingto");
    }
})
</script>

<div>
<form method="get" class="form-inline">
<select id="child_dep_records_per_page" class="form-control" aria-label="Records per page" name="records_per_page">
  <option value="20" <%= ifelse(records_per_page == 20, 'selected', '') %>>20</option>
  <option value="50" <%= ifelse(records_per_page == 50, 'selected', '') %>>50</option>
  <option value="100" <%= ifelse(records_per_page == 100, 'selected', '') %>>100</option>
</select> records per page, showing <%=(page-1)*records_per_page+1%> to <%=min(page*records_per_page, n_used)%> of <%=n_used%> child pacakges.
</form>

 <script type="text/javascript">

  $(function() {
    $('#child_dep_records_per_page').change(function() {
        update_ajax_table("child_dependency", "<%=pkg$package%>", 1, $('#child_dep_records_per_page').val(), "&child_dep_prioritize_reducible=<%=child_dep_prioritize_reducible+0%>&child_dep_internal_ordering=<%=child_dep_internal_ordering+0%>");
    });
});
</script>


  <% nr = n_used
  if(nr > records_per_page) { %>
    <%= page_select2(page, ceiling(nr/records_per_page), "child_dependency", pkg$package, records_per_page, qq("&child_dep_prioritize_reducible=@{child_dep_prioritize_reducible+0}&child_dep_internal_ordering=@{child_dep_internal_ordering+0}")) %>
  <% } %>

<% } else { %>

<p>In total there are <%=n_total%> child dependencies, but no package on which <span class="package"><%=pkg$package%></span> has heaviness larger than 10.</p>

<% } %>

<% } else { %>

<p>No child dependency found.</p>

<% } %>
