C.1 Creación de la base de datos

Se generará el archivo:

dbfilename <- "data/citan/UDC2015.db"

C.1.1 Primera ejecución: Creación del modelo de DB

Creación del archivo de BD vacío:

conn <- lbsConnect(dbfilename)

## Warning in lbsConnect(dbfilename): Your Local Bibliometric Storage is
## empty. Use lbsCreate(...) to establish one.

Creación del esquema con lbsCreate():

lbsCreate(conn) 

## Warning: RSQLite::dbGetInfo() is deprecated: please use individual metadata
## functions instead

## Creating table 'Biblio_Categories'... Done.
## Creating table 'Biblio_Sources'... Done.
## Creating index for 'Biblio_Sources'... Done.
## Creating table 'Biblio_SourcesCategories'... Done.
## Creating table 'Biblio_Documents'... Done.
## Creating table 'Biblio_Citations'... Done.
## Creating table 'Biblio_Surveys'... Done.
## Creating table 'Biblio_DocumentsSurveys'... Done.
## Creating table 'Biblio_Authors'... Done.
## Creating table 'Biblio_AuthorsDocuments'... Done.
## Creating view 'ViewBiblio_DocumentsSurveys'... Done.
## Creating view 'ViewBiblio_DocumentsCategories'... Done.
## Your Local Bibliometric Storage has been created.
##    Perhaps now you may wish to use Scopus_ImportSources(...) to import source information.

## [1] TRUE

Importar información de Scopus (descargada previamente…) con la función Scopus_ImportSources() (código):

Scopus_ImportSources(conn) # Cuidado con el tiempo de CPU...

## Importing Scopus ASJC codes... Done, 334 records added.
## Importing Scopus source list...

## Warning in doTryCatch(return(expr), name, parentenv, handler): No ASJC @
## row=510.

## Warnings... __TRUNCATED__

## Done, 30787 of 30794 records added; 55297 ASJC codes processed.
## Note: 7 records omitted @ rows=13847,15526,16606,17371,19418,24419,29365.

## [1] TRUE

C.1.2 Incorporar nuevos datos

Con la función Scopus_ReadCSV() se produce un error en Windows:

data <-  Scopus_ReadCSV("udc_2015.csv")

## Error in Scopus_ReadCSV("udc_2015.csv") : Column not found: `Source'.

Empleando la versión modificada:

data <-  Scopus_ReadCSV2("udc_2015.csv")

Añadir los documentos a la base de datos:

lbsImportDocuments(conn, data) 

## Importing documents and their authors... Importing 1324 authors... 1324 new authors added.

## Warning in .lbsImportDocuments_Add_Get_idSource(conn, record$SourceTitle, :
## no source with sourceTitle=''Quaternary Science Reviews'' found for record
## 10. Setting IdSource=NA.

## Warnings... __TRUNCATED__

## Done, 363 of 363 new records added to Default survey/udc_2015.csv.

## [1] TRUE

Se podría añadir una descripción para trabajar con distintos grupos de documentos:

lbsImportDocuments(conn, data, "udc_2015")