# Example 1 - Concatenated position article
# File of database
file_db <- system.file("extdata","example_databaseart.csv", package = "gerefer")
file_base <- system.file("extdata","tabarticle_example1.csv", package = "gerefer")
input_date <- example_databaseart(file_db)
input_tam <- 20
total_list <- FALSE
position_artic <- c(1,2,4,5,9,11,14,16,19,20)
input_linkdateacess <- basede_linkdate(file_base)
#Calls the function article_bib
lister_bibtex <- article_bib(input_date, input_tam, position_artic,
total_list, input_linkdateacess)
lister_bibtex
# Example 2 - Position article in initial sequence
# File of database
file_db <- system.file("extdata","example_databaseart.csv", package = "gerefer")
file_base <- system.file("extdata","tabarticle_example2.csv", package = "gerefer")
# Parameters of the function
input_date <- example_databaseart(file_db)
input_tam <- 20
total_list <- FALSE
position_artic <- seq(1,10,1)
input_linkdateacess <- basede_linkdate(file_base)
#Calls the function article_bib
lister_bibtex <- article_bib(input_date, input_tam, position_artic,
total_list, input_linkdateacess)
lister_bibtex
# Example 3 - Position article in final sequence
# File of database
file_db <- system.file("extdata","example_databaseart.csv", package = "gerefer")
file_base <- system.file("extdata","tabarticle_example3.csv", package = "gerefer")
# Parameters of the function
input_date <- example_databaseart(file_db)
input_tam <- 20
total_list <- FALSE
position_artic <- seq(11,20,1)
input_linkdateacess <- basede_linkdate(file_base)
#Calls the function article_bib
lister_bibtex <- article_bib(input_date, input_tam, position_artic,
total_list, input_linkdateacess)
lister_bibtex
# Example 4 - Position article total sequence
# File of database
file_db <- system.file("extdata","example_databaseart.csv", package = "gerefer")
file_base <- system.file("extdata","tabela_acessototal.csv", package = "gerefer")
# Parameters of the function
input_date <- example_databaseart(file_db)
input_tam <- 20
total_list <- TRUE
position_artic <- seq(1,20,1)
input_linkdateacess <- basede_linkdate(file_base)
#Calls the function article_bib
lister_bibtex <- article_bib(input_date, input_tam, position_artic,
total_list, input_linkdateacess)
lister_bibtex
Run the code above in your browser using DataLab