# import csv file
tt <- read.delim("~/Downloads/vanished_v2.csv", sep = ";")
# table dimensions
dim(tt)
#> [1] 807 61
# empty rows at bottom like row 635
tt[635,]
#> Source If.Identified.by.second.source Journal.Name ISSN E.ISSN URL
#> 635
#> Publisher X Language.s. Country society_affiliation other_sci_affiliation
#> 635 NA NA NA
#> Discipline.Group Start.Year End.Year Last.Year.Online Actively.Publishing
#> 635 NA NA NA
#> Internet.Archive.Link X.1 X.2 X.3 X.4 X.5 X.6 X.7 X.8 X.9 X.10 X.11 X.12
#> 635 NA NA NA NA NA NA NA NA NA NA NA
#> X.13 X.14 X.15 X.16 X.17 X.18 X.19 X.20 X.21 X.22 X.23 X.24 X.25 X.26 X.27
#> 635 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
#> X.28 X.29 X.30 X.31 X.32 X.33 X.34 X.35 X.36 X.37 X.38 X.39 X.40 X.41 X.42
#> 635 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
#> X.43
#> 635 NA
Created on 2020-09-16 by the reprex package (v0.3.0)