Commit 2e44d200 authored by Tuija Sonkkila's avatar Tuija Sonkkila

Axis scale input and altmetrics

parent df8a3469
function(input, output, session) {
# When school is selected, filter data with it
schoolData <- reactive({
......@@ -45,8 +44,9 @@ function(input, output, session) {
paste0("<a target='blank' href='", urls, "'>", urls, "</a>"),
urls)) %>%
rename(oa_virta = oa) %>%
select(url, title, year, is_oa, oa_url, times_cited, times_cited_wos, recent_citations, relative_citation_ratio, field_citation_ratio,
authors, oa_virta, fieldcount, parent, name)
select(url, title, year, is_oa, oa_url, times_cited, wos, recent_citations, relative_citation_ratio, field_citation_ratio,
tweets, mendeley, altm_score,
authors, oa_virta, fieldcount, parent, name)
})
......@@ -71,8 +71,10 @@ function(input, output, session) {
symbol = ~symbol,
marker = list(size = 10, opacity = 0.7),
hovertext = ~text) %>%
layout( xaxis = list( title=input$xc),
yaxis = list( title=input$yc ),
layout( xaxis = list( title = input$xc,
type = input$xscale),
yaxis = list( title = input$yc,
type = input$yscale),
title = title)
})
......@@ -114,7 +116,7 @@ function(input, output, session) {
extensions = "FixedHeader",
options = list(paging = TRUE,
fixedHeader = TRUE,
autoWidth = FALSE,
autoWidth = TRUE,
scrollX = TRUE,
columnDefs = list(list(target = "_all", width = "50px"))))
return(dat)
......
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