Commit 6a9b42e4 authored by Tuija Sonkkila's avatar Tuija Sonkkila

Added value box for OA prop

parent 461e5ff4
......@@ -80,6 +80,21 @@ function(input, output, session) {
})
output$prop_oa <- renderValueBox({
valueBox(
"With OA full text",
ifelse(input$school == "Aalto University",
with_oa_uniquedois,
paste0(nrow(deptData()[!is.na(deptData()$urls) & !duplicated(deptData()[,1]), ]), " (",
floor(nrow(deptData()[!is.na(deptData()$urls) & !duplicated(deptData()[,1]), ]
) / nrow(deptData()[!duplicated(deptData()[,1]), ]) * 100), "% )")),
icon = icon("calculator"),
color = "yellow"
)
})
output$heatmap <- renderPlotly({
if(is.null(input$dept) || input$dept == "Select school first" || input$dept == "All")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment