Examples with wiki_utils

Functions to obtain a list of Wikidata entities

w_SearchByLabel(string, langsorder=‘en’, lang=““, instanceof=”“, Pproperty=”“, mode=c(”exact”,“startswith”,“inlabel”))

w_OccupationEntities(Qoc, nlimit=NULL, mode=c(‘default’,‘count’,‘wikipedias’))

Function to obtain information from a list of Wikidata entities or a single one.

w_isInstanceOf(entity_list, instanceof)

w_Wikipedias(entity_list, wikilangs=““, instanceof=”“, nlimit=1500)

w_isValid(entity_list, nlimit=50000)

w_Property(entity_list, Pproperty, langsorder=‘en’, nlimit=10000)

w_IdentifiersOfAuthority(Pauthority, langsorder=‘en’, instanceof=““)

Pauthority = Authority Database Property in Wikidata

w_EntityInfo(entity, langsorder=‘en’, wikilangs=““, mode=c(‘default’,‘tiny’,‘film’))

Functions to obtain information using the WikiMedia API’s

m_Opensearch(string, project=‘en.wikipedia.org’, profile=“engine_autoselect”, redirects=“resolve”)

m_reqMediaWiki(titles, mode=c(‘wikidataEntity’,‘redirects’,‘pagePrimaryImage’,‘pageFiles’), project=‘en.wikipedia.org’, redirects=TRUE, exclude_ext=‘svg|webp|xcf’)

m_Pageviews(article, start, end, project=“en.wikipedia.org”, access=“all-access”, agent=“user”, granularity=“monthly”, redirects=FALSE)

m_XtoolsInfo(article, infotype=“articleinfo”, project=“en.wikipedia.org”, redirects=FALSE)

Functions to obtain information (viafID or cluster records) using the VIAF API

v_AutoSuggest(author) : obtains viafID

v_Search(CQL_Query, mode=c(‘default’, ‘anyField’, ‘allmainHeadingEl’, ‘allNames’, ‘allPersonalNames’, ‘allTitle’)) : obtains clusters records

Function to retrieve a cluster record using the viafID.

v_GetRecord(viafid, record_format=‘viaf.json’): retrieve a cluster record

Function to extract information from a VIAF cluster record

v_Extract(viaf, info, source=NULL)

Search string “Iranzo” in different positions

Exact search in Label or exact search in AltLabel (case sensitive and diacritics)

Optional: limit by instanceof Wikidata class (Qxx).

Optional: return information of some properties (Pproperties, Pxxx).

df <- w_SearchByLabel(string='Iranzo', langsorder='es|en')
df <- w_SearchByLabel(string='Iranzo', langsorder='es|en', instanceof = 'Q5')
df <- w_SearchByLabel(string='Iranzo', langsorder='es|en', instanceof = 'Q5|Q101352')
df <- w_SearchByLabel(string='Iranzo', langsorder='es|en', instanceof = 'Q5',
                      Pproperty = 'P21|P569|P570')

Search at the beginning in Label or AltLabel (diacritics and case are ignored)

df <- w_SearchByLabel(string='Iranzo', lang='en', langsorder='es|en', mode='startswith')
df <- w_SearchByLabel(string='Iranzo', lang='en', langsorder='es|en', instanceof = 'Q5',
                      mode='startswith')
df <- w_SearchByLabel(string='Iranzo', lang='en', langsorder='es|en',
                      instanceof = 'Q5|Q101352', mode='startswith')
df <- w_SearchByLabel(string='Iranzo', lang='en', langsorder='en', instanceof = 'Q5',
                      Pproperty = 'P21|P569|P570', mode='startswith')

Search in any position in Label or AltLabel (diacritics and case are ignored)

If lang==’’ search in any language, else the search is performed only in the language indicated.

df <- w_SearchByLabel(string='Iranzo', langsorder='es|en', mode='inlabel')

Search only in Chinese (Simplified) (language code: zh):

df <- w_SearchByLabel(string='Iranzo', langsorder='zh|es', lang='zh', mode='inlabel')

Optional instanceof and Property

df <- w_SearchByLabel(string='Iranzo', langsorder='es|en', instanceof = 'Q5',
                      mode='inlabel')
df <- w_SearchByLabel(string='Iranzo', langsorder='es|en', instanceof = 'Q5|Q101352',
                      mode='inlabel')
df <- w_SearchByLabel(string='Iranzo', langsorder='es|en', instanceof = 'Q5',
                      Pproperty = 'P21|P569|P570', mode='inlabel')

aux: getting a vector of entities (l) to use later.

df <- w_SearchByLabel(string='Iranzo', langsorder='es|en', mode='inlabel')
l <- df$entity

w_isInstanceOf

Check if elements in entity_list are instance of a Wikimedia class

df <- w_isInstanceOf(entity_list=l, instanceof='Q5')
# Not TRUE
df[!df$instanceof_Q5,]

##                entity instanceof_Q5
## Q45987474   Q45987474         FALSE
## Q85684513   Q85684513         FALSE
## Q117783790 Q117783790         FALSE
## Q47034606   Q47034606         FALSE
## Q45976259   Q45976259         FALSE
## Q11912738   Q11912738         FALSE
## Q97101009   Q97101009         FALSE
## Q111015546 Q111015546         FALSE
## Q97101007   Q97101007         FALSE
## Q31835108   Q31835108         FALSE
## Q6058550     Q6058550         FALSE

w_Wikipedias

Search for Wikipedia pages in all/some languages

Optional: instanceOF (limit to entities which are instance of a Wikidata class)

df <- w_Wikipedias(entity_list=l)
df <- w_Wikipedias(entity_list=l, wikilangs='es|en|fr')
df <- w_Wikipedias(entity_list=l, wikilangs='es|en|fr', instanceof="Q5")

w_Occupations

Count entities, or get the entities with that occupation, also get Wikipedia pages

Note: depending on connection speed, nlimit parameter musts be adjusted

w_OccupationEntities(Qoc='Q2306091', mode='count') # Qoc for Sociologist

## [1] 19308

l  <- w_OccupationEntities(Qoc='Q2306091') # l=entities: vector

lw <- w_OccupationEntities(Qoc='Q2306091', mode='wikipedias') # lw=dataframe
 # We can obtain the same information using previous function w_Wikipedias:
 lw2 <- w_Wikipedias(entity_list=l, wikilangs='')
 # Verifying:
 all(lw['Q10320558','pages'] == lw2['Q10320558','pages'])
 # Verifying:
 all(sort(strsplit(lw['Q9061', 'pages'], '|', fixed = T)[[1]]) ==
     sort(strsplit(lw2['Q9061', 'pages'], '|', fixed = T)[[1]]))

w_isValid.

Check if the Wikidata entities are valid. A entity is valid if it has a label or has a description. If one entity exists but is not valid, is possible that it has a redirection to other entity, in that case, the redirection is obtained. Other entities may have existed in the past, but they are currently deleted.

l2 <- append(l, c("Q115637688", "Q105660123"))  # Note: adding two new entities
v <- w_isValid(l2)
# Not valid
v[!v$valid,]

##                entity valid redirection
## Q115637688 Q115637688 FALSE            
## Q105660123 Q105660123 FALSE   Q97352588

w_Property

Obtain properties of entity_list.

p <- w_Property(l, Pproperty = 'P21|P569|P214', langsorder = 'es|en')

w_IdentifiersOfAuthority

Search for Wikidata entities that have an identifier in the Wikidata authority property “Pauthority”.

Optional: instanceOf

Example: Pauthority=P4439 (has identifier in the Museo Nacional Centro de Arte Reina Sofía)

mncars   <- w_IdentifiersOfAuthority(Pauthority="P4439", langsorder = 'es|en')
# 1286  [human, groups, etc.]
mncarsQ5 <- w_IdentifiersOfAuthority(Pauthority="P4439", langsorder = 'es|en',
                                     instanceof = 'Q5')  # 1280
# Entities are not 'human' (Q5) [see entityDescription column):
mncars[!(mncars$entity %in% mncarsQ5$entity),]  # not instance of Q5.

##                entity                                  entityLabel
## Q105687869 Q105687869            João Maria Gusmão and Pedro Paiva
## Q4517304     Q4517304                                  Chto Delat?
## Q5849776     Q5849776                                 Estrujenbank
## Q20102460   Q20102460                        Agustín Parejo School
## Q27657364   Q27657364 Midnight Gardening (Jardinería a medianoche)
## Q317874       Q317874                                     Ant Farm
##                                   entityDescription                 P4439
## Q105687869                  Portuguese artistic duo     gusmao-joao-maria
## Q4517304                     Russian art collective            chto-delat
## Q5849776                        colectivo artístico          estrujenbank
## Q20102460                                           agustin-parejo-school
## Q27657364                 cuadro de Jerónimo Elespe       elespe-jeronimo
## Q317874    American art and architecture collective              ant-farm

w_EntityInfo

Get some properties of a Wikidata entity.

df1 <- w_EntityInfo(entity='Q134644', langsorder = 'es|en')
# Also a "tiny" version
df2 <- w_EntityInfo(entity='Q134644', langsorder = 'es|en', mode='tiny')
# Differences: fields non existing in the tiny row set as "--":
Aleixandre <- rbind(
  df1,
  data.frame(c(df2, sapply(setdiff(names(df1), names(df2)), function(x) "--")),
             row.names = 'tiny')
)
BenHur    <- w_EntityInfo(entity='Q180098', langsorder='es|en',
                          wikilangs = 'es|fr', mode='film')
Nosferatu <- w_EntityInfo(entity='Q151895', langsorder='es|en',
                          wikilangs = 'es|fr|en', mode='film')
# Nosferatu has a public video:
Nosferatu$video

## [1] "http://commons.wikimedia.org/wiki/Special:FilePath/Nosferatu%20%281922%2C%20English%20titles%201947%29.webm"

# Combining data-frames:
films <- rbind(BenHur, Nosferatu)

m_Opensearch

Search articles that contains any words (note: it is better to use a large string)

Some search profiles:

df <- m_Opensearch(string='Duque de Alba', project='es.wikipedia.org',
                   profile="engine_autoselect", redirects="resolve")
df <- m_Opensearch(string='Duque de Alba', project='es.wikipedia.org', profile="strict")
df <- m_Opensearch(string='Duque de Alba', project='es.wikipedia.org', profile="fuzzy")

m_reqMediaWiki

Checks if titles are in a Wikimedia project and returns the Wikidata entity for them, if they have one.

Note that URLdecode(“a%CC%8C”) is the letter “a” with the combining caron (ǎ)

df <- m_reqMediaWiki(c('Max Planck', URLdecode("a%CC%8C"), 'Max', 'Cervante', 'humanist'),
                        mode='wikidataEntity', project='en.wikipedia.org')

Obtains the redirections of a page (the page itself can be a redirect to other page).

Returns a vector for each title, in each vector the first element is the destiny, rest are all pages that redirect to it.

a <- m_reqMediaWiki(c('Cervantes', 'Planck', 'Noexiste'), mode='redirects',
                    project='es.wikipedia.org')
a

## $Cervantes
##  [1] "Miguel de Cervantes"            "Miguel de Cerbantes"           
##  [3] "Miguel de Cervantes y Saavedra" "Miguel De Cervantes y Saavedra"
##  [5] "El manco de Lepanto"            "Miguel de cervantes"           
##  [7] "Manco de Lepanto"               "Don Miguel de Cervantes"       
##  [9] "Cervantino"                     "Cervantina"                    
## [11] "Miguel de Cervantes Saavedra"   "Cervantes Saavedra, Miguel de" 
## [13] "Miguel de Cervantes y Cortinas" "Cervantesco"                   
## [15] "Cervántico"                     "Cervantes"                     
## 
## $Planck
## [1] "Max Planck"                   "Planck"                      
## [3] "Max Karl Ernst Ludwig Planck"
## 
## $Noexiste
## [1] NA

Gets the URL of de Primary image as a URL of Wikimedia pages.

Gets all URL of files inserted in the pages (images, sounds, videos…), using ‘|’ as separator, and excluding some extensions in the exclude_ext parameter.

Both functions automatically resolve redirects (the destiny is the “normalized” column of the data-frame returned).

i <- m_reqMediaWiki(c('Max Planck', URLdecode("a%CC%8C"), 'Max', 'Cervante', 'humanist'),
                  mode='pagePrimaryImage')

f <- m_reqMediaWiki(c('Max Planck', URLdecode("a%CC%8C"), 'Max', 'Cervante', 'humanist'),
                  mode='pageFiles', exclude_ext = "svg|webp|xcf")

m_Pageviews

Gets visits that a page have had in a date interval

Optional: redirects

v <-  m_Pageviews(article="Cervantes", start="20230101", end="20230501",
                   project="es.wikipedia.org", granularity="monthly")
vv <- m_Pageviews(article="Cervantes", start="20230101", end="20230501",
                   project="es.wikipedia.org", granularity="monthly",
                   redirects=TRUE)

m_XtoolsInfo

Obtains information (as vector) about an article in the Wikimedia project.

Infotype: articleinfo, prose, links

Optional: redirects

x <-  m_XtoolsInfo(article="Cervantes", infotype="articleinfo", project="es.wikipedia.org")
xx <- m_XtoolsInfo(article="Cervantes", infotype="articleinfo", project="es.wikipedia.org",
                   redirects=TRUE)

y <-  m_XtoolsInfo(article="Miguel de Cervantes", infotype="links", project="es.wikipedia.org")
yy <- m_XtoolsInfo(article="Cervantes", infotype="links", project="es.wikipedia.org",
                    redirects=TRUE)

Gets all information (articleinfo, prose, links).

z  <- m_XtoolsInfo(article="Miguel de Cervantes", infotype="all", project="es.wikipedia.org")
zz <- m_XtoolsInfo(article="Cervantes", infotype="all", project="es.wikipedia.org",
                       redirects=TRUE)

v_AutoSuggest

Searches authors. Sometimes the same author appears several times, under a different name).

Return a data-frame.

Important: The API returns a maximum of 10 records.

v_AutoSuggest('Iranzo')

##       term                                                  score  nametype  
##  [1,] "Iranzo, Antonio, 1930-2003"                          "1563" "personal"
##  [2,] "Iranzo, Carmen"                                      "1439" "personal"
##  [3,] "Iranzo, Miguel Lucas de"                             "1392" "personal"
##  [4,] "Iranzo, G., 1918-1998"                               "1365" "personal"
##  [5,] "Iranzo Muñío, María Teresa, 19..-"                   "1346" "personal"
##  [6,] "Iranzo Simón, Víctor 1850-1890"                      "1220" "personal"
##  [7,] "Iranzo Benedito, Manuel, 1867-1921"                  "1202" "personal"
##  [8,] "Iranzo, Olga"                                        "1190" "personal"
##  [9,] "Iranzo Bielsa, José, el Pastor de Andorra 1915-2016" "1170" "personal"
## [10,] "Iranzo Martín, Juan Emilio 1956-"                    "1162" "personal"
##       viafid                
##  [1,] "87262213"            
##  [2,] "46775630"            
##  [3,] "3268989"             
##  [4,] "88012748"            
##  [5,] "48297869"            
##  [6,] "87244676"            
##  [7,] "87100730"            
##  [8,] "49150565569906250223"
##  [9,] "63243927"            
## [10,] "58295559"

v_AutoSuggest('Esparza, María')

##       term                                                                    
##  [1,] "Esparza, María 1898-1978"                                              
##  [2,] "Esparza, María Jesús"                                                  
##  [3,] "Esparza, Mariana Ochoa"                                                
##  [4,] "Esparza, María Elena"                                                  
##  [5,] "Esparza, Maria, 19..-...., auteure d'une thèse de sciences biologiques"
##  [6,] "Esparza, María Del Rosario Campos-"                                    
##  [7,] "Esparza, María Sanjuana Salazar"                                       
##  [8,] "Esparza, María"                                                        
##  [9,] "Esparza, María del Carmen Hernández"                                   
## [10,] "Esparza, María de los Angeles Cervantes"                               
##       score  nametype   viafid                  
##  [1,] "1022" "personal" "1335154741632153110006"
##  [2,] "1013" "personal" "9147370712141442276"   
##  [3,] "1012" "personal" "67961098"              
##  [4,] "1012" "personal" "48986872"              
##  [5,] "1011" "personal" "250164959833724021614" 
##  [6,] "515"  "personal" "118153833232264332271" 
##  [7,] "509"  "personal" "121210664"             
##  [8,] "509"  "personal" "466160667844803560008" 
##  [9,] "508"  "personal" "103543869"             
## [10,] "508"  "personal" "31757197"

v_AutoSuggest('Escobar, Modesto')

##      term                                  score  nametype   viafid    
## [1,] "Escobar, Modesto, 1958-"             "1286" "personal" "75898534"
## [2,] "Escobar, Modesto"                    "1278" "personal" "75898534"
## [3,] "Escobar, Modesto, 1940-"             "1246" "personal" "6744770" 
## [4,] "Escobar, Modesto, (Escobar Espinar)" "628"  "personal" "6744770"

# Note that four rows are returned, but only two different viafids.

v_Search

Search using CQL_Query

See https://www.oclc.org/developer/api/oclc-apis/viaf/authority-cluster.en.html

# Auxiliary function that extracts specific information from each record.
showVIAF <- function(r) {
  i <- 0
  for (j in r) {
    i <- i+1
    # Get viaf record
    viaf <- j$record$recordData
    viafid <- viaf$viafID
    cat(paste0("-----------\nRecord #",i,"\nSources:\n"))
    print(v_Extract(viaf, info='sources'))
    cat("Gender: ");       print(v_Extract(viaf, info='gender'))
    cat("Dates: ") ;       print(v_Extract(viaf, info='dates'))
    cat('Occupations: ');  print(v_Extract(viaf, info='occupations'))
    cat("Titles: ");       print(v_Extract(viaf, info='titles'))
    cat("Wikipedias: ");   print(v_Extract(viaf, info='wikipedias'))
  }
}

Search in any field (cql.any)

Operator is “=”: so search all terms and only those ones:

CQL_Query <- 'cql.any = "García Iranzo, Juan"'
r <- v_Search(CQL_Query)
# r contains complete VIAF records (sometimes seen as a "cluster record",
# which is unified by combining records from many libraries around the world)
showVIAF(r)

## -----------
## Record #1
## Sources:
##                                       text                BNC      BNE
## 1                    Iranzo, G., 1918-1998 981058518730306706 XX990548
## 2            García Iranzo, Juan 1918-1998               <NA>     <NA>
## 3 Juan García Iranzo historietista español               <NA>     <NA>
##               ISNI        DNB      WKP
## 1 0000000061151209       <NA>     <NA>
## 2             <NA> 1280548487     <NA>
## 3             <NA>       <NA> Q9015544
## Gender: [1] "male"
## Dates: [1] "1918:1998"
## Occupations: NULL
## Titles:  [1] "¡Acorralados!"                             
##  [2] "Asalto a la \"Unión Pacific\""             
##  [3] "Barranco amarillo"                         
##  [4] "Burla a los rufianes"                      
##  [5] "El \"Cachorro\" contra \"Quasimodo\""      
##  [6] "El \"Cachorro\" en Guerra sin cuartel"     
##  [7] "El \"Cachorro\" en la isla corsaria"       
##  [8] "El cachorro entra en fuego"                
##  [9] "El Cachorro y los buitres del Mar Caribe"  
## [10] "El Capitán coraje"                         
## [11] "Caravana de héroes"                        
## [12] "¡Cargamento de ébano!"                     
## [13] "¡Crueldad corsaria!"                       
## [14] "Derroche de audacia"                       
## [15] "El desierto de las calaveras"              
## [16] "Dick Relámpago : el rey de la pradera"     
## [17] "La diligencia de San Luis"                 
## [18] "Duelo indio"                               
## [19] "Fort Dakota"                               
## [20] "Fuera de la ley"                           
## [21] "¡A hierro y fuego!"                        
## [22] "El Hombre de los espacios"                 
## [23] "Iranzo : història viva del nostre dibuix"  
## [24] "Jugando con la muerte"                     
## [25] "¡A la desesperada!"                        
## [26] "¡¡Llegan los indios!!"                     
## [27] "¡Llegar a tiempo!"                         
## [28] "La mayor recompensa"                       
## [29] "Nervios de acero"                          
## [30] "Pancho Colate"                             
## [31] "El pirata desconocido ; La ciudad del gong"
## [32] "Plan diabólico"                            
## [33] "El poste de los tormentos"                 
## [34] "La pradera en llamas"                      
## [35] "¡¡Prisioneros!!"                           
## [36] "¡La Reyerta!"                              
## [37] "Rumbo a Angola"                            
## [38] "Saldando cuentas"                          
## [39] "A sangre y fuego"                          
## [40] "Serie El Cachorro"                         
## [41] "Slim \"Muescas\""                          
## [42] "El terremoto"                              
## [43] "Tres contra mil"                           
## [44] "¡El triunfo de un héroe!"                  
## [45] "Última esperanza"                          
## [46] "La verdadera historia de Almuñecar"        
## Wikipedias: [1] "https://ca.wikipedia.org/wiki/Juan_García_Iranzo"
## [2] "https://es.wikipedia.org/wiki/Juan_García_Iranzo"
## [3] "https://fr.wikipedia.org/wiki/G._Iranzo"

Shortcut

r <- v_Search("García Iranzo, Juan", mode="anyField")
showVIAF(r)

## -----------
## Record #1
## Sources:
##                                       text                BNC      BNE
## 1                    Iranzo, G., 1918-1998 981058518730306706 XX990548
## 2            García Iranzo, Juan 1918-1998               <NA>     <NA>
## 3 Juan García Iranzo historietista español               <NA>     <NA>
##               ISNI        DNB      WKP
## 1 0000000061151209       <NA>     <NA>
## 2             <NA> 1280548487     <NA>
## 3             <NA>       <NA> Q9015544
## Gender: [1] "male"
## Dates: [1] "1918:1998"
## Occupations: NULL
## Titles:  [1] "¡Acorralados!"                             
##  [2] "Asalto a la \"Unión Pacific\""             
##  [3] "Barranco amarillo"                         
##  [4] "Burla a los rufianes"                      
##  [5] "El \"Cachorro\" contra \"Quasimodo\""      
##  [6] "El \"Cachorro\" en Guerra sin cuartel"     
##  [7] "El \"Cachorro\" en la isla corsaria"       
##  [8] "El cachorro entra en fuego"                
##  [9] "El Cachorro y los buitres del Mar Caribe"  
## [10] "El Capitán coraje"                         
## [11] "Caravana de héroes"                        
## [12] "¡Cargamento de ébano!"                     
## [13] "¡Crueldad corsaria!"                       
## [14] "Derroche de audacia"                       
## [15] "El desierto de las calaveras"              
## [16] "Dick Relámpago : el rey de la pradera"     
## [17] "La diligencia de San Luis"                 
## [18] "Duelo indio"                               
## [19] "Fort Dakota"                               
## [20] "Fuera de la ley"                           
## [21] "¡A hierro y fuego!"                        
## [22] "El Hombre de los espacios"                 
## [23] "Iranzo : història viva del nostre dibuix"  
## [24] "Jugando con la muerte"                     
## [25] "¡A la desesperada!"                        
## [26] "¡¡Llegan los indios!!"                     
## [27] "¡Llegar a tiempo!"                         
## [28] "La mayor recompensa"                       
## [29] "Nervios de acero"                          
## [30] "Pancho Colate"                             
## [31] "El pirata desconocido ; La ciudad del gong"
## [32] "Plan diabólico"                            
## [33] "El poste de los tormentos"                 
## [34] "La pradera en llamas"                      
## [35] "¡¡Prisioneros!!"                           
## [36] "¡La Reyerta!"                              
## [37] "Rumbo a Angola"                            
## [38] "Saldando cuentas"                          
## [39] "A sangre y fuego"                          
## [40] "Serie El Cachorro"                         
## [41] "Slim \"Muescas\""                          
## [42] "El terremoto"                              
## [43] "Tres contra mil"                           
## [44] "¡El triunfo de un héroe!"                  
## [45] "Última esperanza"                          
## [46] "La verdadera historia de Almuñecar"        
## Wikipedias: [1] "https://ca.wikipedia.org/wiki/Juan_García_Iranzo"
## [2] "https://es.wikipedia.org/wiki/Juan_García_Iranzo"
## [3] "https://fr.wikipedia.org/wiki/G._Iranzo"

Search in 1xx, 4xx, 5xx fields of MARC record (local.names)

Operator is “all”: search all terms

CQL_Query <- 'local.names all "Figuerola"'
r <- v_Search(CQL_Query)

Shortcut

r2 <- v_Search("Figuerola", mode="allNames")
cat(length(r), length(r2))

## 210 210

Records found exceeds the maximum per request API limit : 250

CQL_Query <- 'local.names all "Bolero"'
r <- v_Search(CQL_Query)

Search in 100, 400, 500 fields of MARC record (local.personalNames)

Operator is “all”: search all terms

CQL_Query <- 'local.personalNames all "Modesto Escobar"'
r <- v_Search(CQL_Query)
showVIAF(r)

## -----------
## Record #1
## Sources:
##                                 text           LC
## 1 Escobar Acosta, Modesto, 1877-1936 n 2023023856
## Gender: [1] "u"
## Dates: [1] "1877:1936"
## Occupations: NULL
## Titles: [1] "Modesto Escobar Acosta, 2022:"
## Wikipedias: NULL
## -----------
## Record #2
## Sources:
##                       text                BNC       BNE       DNB
## 1  Escobar, Modesto, 1958- 981058511260506706 XX1104942 171872282
## 2 Escobar Mercado, Modesto               <NA>      <NA>      <NA>
## 3         Escobar, Modesto               <NA>      <NA>      <NA>
##               ISNI     SUDOC          LC
## 1             <NA>      <NA>        <NA>
## 2 0000000059273899 184094852        <NA>
## 3             <NA>      <NA> no 95018832
## Gender: [1] "male"
## Dates: [1] "1958:0"
## Occupations:             LC
## 1 sociologists
## Titles:  [1] "Análisis de datos con Stata"                                                                 
##  [2] "El Análisis de segmentación : técnicas y aplicaciones de los árboles de clasificación"       
##  [3] "Análisis gráfico/exploratorio"                                                               
##  [4] "Autoempleo y actividades empresariales de las mujeres en España"                             
##  [5] "Deviation, inequality, polarization : some measures of social diversity"                     
##  [6] "Entonces, más allá del viento"                                                               
##  [7] "El Futuro de los medios de comunicación ante el impacto de las nuevas tecnologías"           
##  [8] "La Identidad social del parado"                                                              
##  [9] "Los naufragos del \"Jonathan\""                                                              
## [10] "Los pronósticos electorales con encuestas : elecciones generales en España (1979-2011)"      
## [11] "Socioestadística : introducción a la estadística en sociología"                              
## [12] "Works or union councils? : the representative system in medium and large sized Spanish firms"
## Wikipedias: NULL
## -----------
## Record #3
## Sources:
##                                          text          LC             ISNI
## 1 Escobar A., Modesto (Escobar Aquino), 1940- n  85099351             <NA>
## 2               Escobar Aquino, Modesto 1940-        <NA> 0000000028458030
## Gender: [1] "u"
## Dates: [1] "1940:0"
## Occupations: NULL
## Titles: [1] "Don Juan Pitogüe"                    
## [2] "Entonces, más allá del viento, 1984:"
## [3] "Poems"                               
## [4] "Poesía completa en castellano"       
## [5] "Savia caminante"                     
## [6] "Siete en punto."                     
## Wikipedias: NULL
## -----------
## Record #4
## Sources:
##                                 text     SUDOC                BNC       BNE
## 1           Escobar Espinar, Modesto 060233524 981058511260406706      <NA>
## 2     Escobar Espinar, Modesto 1940-      <NA>               <NA> XX1317992
## 3                   Escobar, Modesto      <NA>               <NA>      <NA>
## 4            Escobar, Modesto, 1940-      <NA>               <NA>      <NA>
## 5                    Modesto Escobar      <NA>               <NA>      <NA>
## 6      Escobar Aquino, Modesto 1940-      <NA>               <NA>      <NA>
## 7 Escobar, Modesto (Escobar Espinar)      <NA>               <NA>      <NA>
##               ISNI       NKC       WKP        DNB           LC
## 1             <NA>      <NA>      <NA>       <NA>         <NA>
## 2             <NA>      <NA>      <NA>       <NA>         <NA>
## 3 0000000059339384      <NA>      <NA>       <NA>         <NA>
## 4             <NA> xx0199364      <NA>       <NA>         <NA>
## 5             <NA>      <NA> Q93432076       <NA>         <NA>
## 6             <NA>      <NA>      <NA> 1057399809         <NA>
## 7             <NA>      <NA>      <NA>       <NA> n 2001099447
## Gender: [1] "male"
## Dates: [1] "1940:0"
## Occupations:                     NKC
## 1 vysokoskolsti ucitele
## 2         stomatologove
## 3               basnici
## Titles: [1] "El comercio electrónico perspectiva presente y futura en España"                                  
## [2] "La empresa en la red"                                                                             
## [3] "Gestión de la cadena de suministro estudio de prospectiva"                                        
## [4] "Monográfico Green jobs marco normativo y competencial de la economía verde en España, 2010"       
## [5] "¿Por qué somos así? : la historia explica la baja implicación del español en ciencia y tecnología"
## [6] "La sociedad de la información introducción a la convergencia tecnológica y empresarial"           
## [7] "Sociedad de la información las marcas y el comercio electrónico"                                  
## [8] "Teletrabajo incidencia social y económica : posibilidades en España"                              
## [9] "TIC, tendencias de evolución"                                                                     
## Wikipedias: NULL

v_Search mode=allmainHeadingEl: 1xx fields of MARC record:

r <- v_Search("Escobar Mercado, Modesto", mode='allmainHeadingEl')

Search in Titles

CQL_Query <- 'local.title all "Los pronósticos electorales con encuestas"'
r <- v_Search(CQL_Query)
showVIAF(r)

## -----------
## Record #1
## Sources:
##                      text             ISNI        DNB     SUDOC       BNE
## 1 Cilleros Conde, Roberto 0000000444360374 1081650478 184094968 XX5449768
## Gender: [1] "male"
## Dates: [1] "0:0"
## Occupations: NULL
## Titles: [1] "Los pronósticos electorales con encuestas : elecciones generales en España (1979-2011)"
## Wikipedias: NULL
## -----------
## Record #2
## Sources:
##                       text                BNC       BNE       DNB
## 1  Escobar, Modesto, 1958- 981058511260506706 XX1104942 171872282
## 2 Escobar Mercado, Modesto               <NA>      <NA>      <NA>
## 3         Escobar, Modesto               <NA>      <NA>      <NA>
##               ISNI     SUDOC          LC
## 1             <NA>      <NA>        <NA>
## 2 0000000059273899 184094852        <NA>
## 3             <NA>      <NA> no 95018832
## Gender: [1] "male"
## Dates: [1] "1958:0"
## Occupations:             LC
## 1 sociologists
## Titles:  [1] "Análisis de datos con Stata"                                                                 
##  [2] "El Análisis de segmentación : técnicas y aplicaciones de los árboles de clasificación"       
##  [3] "Análisis gráfico/exploratorio"                                                               
##  [4] "Autoempleo y actividades empresariales de las mujeres en España"                             
##  [5] "Deviation, inequality, polarization : some measures of social diversity"                     
##  [6] "Entonces, más allá del viento"                                                               
##  [7] "El Futuro de los medios de comunicación ante el impacto de las nuevas tecnologías"           
##  [8] "La Identidad social del parado"                                                              
##  [9] "Los naufragos del \"Jonathan\""                                                              
## [10] "Los pronósticos electorales con encuestas : elecciones generales en España (1979-2011)"      
## [11] "Socioestadística : introducción a la estadística en sociología"                              
## [12] "Works or union councils? : the representative system in medium and large sized Spanish firms"
## Wikipedias: NULL
## -----------
## Record #3
## Sources:
##                   text             ISNI           LC                BNC
## 1       Rivière, Jaime 0000000370165778 n 2002118142 981058515263906706
## 2 Rivière Gómez, Jaime             <NA>         <NA>               <NA>
##       SUDOC
## 1      <NA>
## 2 184094917
## Gender: [1] "u"
## Dates: [1] "0:0"
## Occupations: NULL
## Titles: [1] "Abandono temprano de la educación y la formación : cifras y políticas [Número dedicat]"
## [2] "Cultura económica : actitudes ante el Estado y el mercado en España"                   
## [3] "Desviació i control social."                                                           
## [4] "Desviación y control social"                                                           
## [5] "Fracaso y abandono escolar en España"                                                  
## [6] "Los pronósticos electorales con encuestas : elecciones generales en España (1979-2011)"
## Wikipedias: NULL