tts

tts

library(tidyverse)
library(readxl)
library(tmaptools)
library(maps)
library(sf)

url <- "https://altmetric.figshare.com/ndownloader/files/20202618"
temp <- tempfile()
download.file(url, temp)
data <- read_excel(temp)

tts

library(tidyverse)
library(sf)

# Data from hri.fi
districts <- st_read("PKS_Kartta_Rajat_KML2011/PKS_suuralue.kml")

hki <- districts %>%
  filter(Name %in% c("Eteläinen", "Itäinen","Läntinen","Kaakkoinen",
                     "Keskinen","Pohjoinen","Koillinen")) %>% 
  mutate(Name_en = case_when(

tts

library(tidyverse)
library(readxl)
library(httr)

#-------------------------------------------------------------
# hri.fi
#
# Pääkaupunkiseudun kaukolämmön tuotannon energialähteet (GWh)
#-------------------------------------------------------------

tts

Public Sub addMissingYears()

    Dim readFrom As Long 'Row we read from
    Dim writeTo As Long 'Row we write to
    Dim allRows As Long 'Row count to loop over
    Dim thisC As Long
    Dim thisD As Long
    Dim sheetFrom As Worksheet 'Sheet where we read from
    Dim sheetTo As Worksheet 'Sheet where we write to
        

tts

# `dataset` holds the input data for this script
library(dplyr)

names(dataset) <- c("Type", "Unit", "Start", "End")

dataset$Unit <- iconv(dataset$Unit, from = "WINDOWS-1252", to = "UTF-8")

# We need to expand those rows where Start and End span more than one year,
# e.g. 2010-2012 into 2010, 2011, 2012 
to_expand <- dataset %>%

tts

library(dplyr)
library(tidyr)
library(ggplot2)
library(gridExtra)
library(grid)

data20162017 <- read.csv("toshiny_altm_2016_2017.csv", stringsAsFactors = FALSE)

data20162017 <- data20162017 %>% 
  mutate(gap_cites = Citations2017 - Citations,

tts

# https://blog.dominodatalab.com/visualizing-homeownership-in-the-us-using-small-multiples-and-r/
opts <- theme(
  panel.background = element_rect(fill="white"),
  panel.border = element_rect(colour="black", fill=NA),
  axis.line = element_blank(),
  axis.ticks = element_blank(),
  panel.grid.major = element_blank(),
  panel.grid.minor = element_blank(),
  axis.text = element_text(colour="gray25", size=15, angle=90, hjust=1),
  axis.title = element_blank(),

tts

library(purrr)
library(tidyr)
library(dplyr)
library(jsonlite)

# Data queried via oadoi.org API with the roadoi package. Title from local CRIS, joined with DOI.
# See https://users.aalto.fi/~sonkkila/oadoi.html

data <- read.csv(file = "repo_and_oadoi.csv", stringsAsFactors = F)
oa <- data[!is.na(data$free_fulltext_url), c("title", "evidence", "free_fulltext_url")]

tts

library(shiny)
library(highcharter)
library(dygraphs)
library(xts)
library(dplyr)

shinyApp(
  ui = fluidPage(
    fluidRow(
      column(12,