#Call the principal_lister function
input_tam <- 100
file_db <- system.file("extdata","example_database.csv", package = "bibliorefer")
separator <- ";"
input_date <- example_database(file_db, separator)
principal_refer <- principal_lister(input_date,input_tam)
#Call the ajust_pagin function
ajust_space <- ajust_pagin(principal_refer)
ajust_space
Run the code above in your browser using DataLab