In KTH-Library/kthapi: Data from KTH APIs

The function providing access to KTH Publications API data can provide some overview stats, list the active public users, active users with publications and more. Some usage examples:

library(kthapi)
library(dplyr)

kth_publications("stats")
#> <KTH API call for stats>
#> $activeUsers
#> [1] 3397
#> 
#> $publicUsers
#> [1] 1147

# top 5 active public users with publication counts
kth_publications("activePublicUsers")$content$users %>% 
  as_tibble() %>% 
  setNames(., nm = c("count", "kthid", "username")) %>%
  arrange(desc(count)) %>%
  select(-kthid) %>%
  slice(1:5) %>%
  knitr::kable()

| count|username | |-----:|:--------| | 1000|jostran | | 804|sorlin | | 786|kallej | | 755|otterste | | 718|flaurell |

#kth_publications("activeUsersWithPublications")$content$users %>% 
#  as_tibble() %>%
#  slice(1:5)

# some users provide public access to publications
fp <- 
  kth_publications("filteredPublications", username = "pal")$content

fp$filteredPublications %>% as_tibble() %>% slice(1:5) %>% select(title)
#> # A tibble: 5 x 1
#>   title                                                                                                           
#>   <chr>                                                                                                           
#> 1 Electric field and plasma observations near the magnetopause and bow shock during a rapid compression.          
#> 2 SIMULTANEOUS OBSERVATION OF UPWARD MOVING FIELD-ALIGNED ENERGETIC ELECTRONS AND IONS ON AURORAL-ZONE FIELD LINES
#> 3 Preliminary results from the DC electric fields experiment on Viking                                            
#> 4 THE FINE-STRUCTURE OF THE FRONT SIDE MAGNETOPAUSE DURING 2 SUCCESSIVE CROSSINGS                                 
#> 5 Further Explorations of Cosmogonic Shadow Effects in the Saturnian Rings

# available fields for publication data
fp$filteredPublications %>% as_tibble() %>% slice(1:5) %>% names()
#>  [1] "publicationId"             "organizationId"            "topics"                    "authors"                   "seriesIssueNr"            
#>  [6] "seriesTitle"               "patent"                    "statementOfResponsibility" "identifierUri"             "bookEdition"              
#> [11] "bookPublisher"             "bookPlace"                 "conferenceName"            "recordOrigin"              "hostExtentEnd"            
#> [16] "hostExtentStart"           "hostIssue"                 "hostVolume"                "hostSubTitle"              "hostTitle"                
#> [21] "contentTypeCode"           "publicationSubTypeCode"    "publicationTypeCode"       "dateIssued"                "publicationStatus"        
#> [26] "subTitle"                  "title"                     "visible"

# example record
fp$filteredPublications %>% as_tibble() %>% slice(1:1) %>% glimpse()
#> Rows: 1
#> Columns: 28
#> $ publicationId             <chr> "diva2:1067423"
#> $ organizationId            <chr> "5988"
#> $ topics                    <list> [<data.frame[2 x 1]>]
#> $ authors                   <list> [<data.frame[4 x 3]>]
#> $ seriesIssueNr             <chr> ""
#> $ seriesTitle               <chr> ""
#> $ patent                    <chr> ""
#> $ statementOfResponsibility <chr> ""
#> $ identifierUri             <chr> "http://urn.kb.se/resolve?urn=urn:nbn:se:kth:diva-200117"
#> $ bookEdition               <chr> ""
#> $ bookPublisher             <chr> ""
#> $ bookPlace                 <chr> ""
#> $ conferenceName            <chr> ""
#> $ recordOrigin              <chr> "u1yukyk9"
#> $ hostExtentEnd             <chr> "104"
#> $ hostExtentStart           <chr> "99"
#> $ hostIssue                 <chr> ""
#> $ hostVolume                <chr> ""
#> $ hostSubTitle              <chr> ""
#> $ hostTitle                 <chr> "Achievements of the International Magnetospheric Study (IMS)"
#> $ contentTypeCode           <chr> "refereed"
#> $ publicationSubTypeCode    <chr> ""
#> $ publicationTypeCode       <chr> "article"
#> $ dateIssued                <chr> "1984"
#> $ publicationStatus         <chr> "Published"
#> $ subTitle                  <chr> ""
#> $ title                     <chr> "Electric field and plasma observations near the magnetopause and bow shock during a rapid compression."
#> $ visible                   <lgl> TRUE

# whether the user provides public access can be checked with the userstatus call
kth_publications("userstatus", username = "pal")$public
#> NULL

# not all users have registered publications
tryCatch(
  kth_publications("filteredPublications", username = "mskyttner"), 
  error = function(e) e)
#> <simpleError: The API returned an error>

# organisations can be queried
kth_publications("organisations")$content %>% 
  as_tibble() %>% 
  slice(1:5)
#> # A tibble: 5 x 3
#>       id name$en                                       $sv                                          nameLocalized                               
#>    <int> <chr>                                         <chr>                                        <chr>                                       
#> 1    177 KTH                                           KTH                                          KTH                                         
#> 2  12851 Centres                                       Centra                                       Centres                                     
#> 3  12850 Nordic Institute for Theoretical Physics NOR… Nordic Institute for Theoretical Physics NO… Nordic Institute for Theoretical Physics NO…
#> 4   5921 Science for Life Laboratory, SciLifeLab       Science for Life Laboratory, SciLifeLab      Science for Life Laboratory, SciLifeLab     
#> 5 878400 KTH Center for Applied Precision Medicine (K… KTH Center for Applied Precision Medicine (… KTH Center for Applied Precision Medicine (…