knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
The aim of the project is to collect the data for the MeFu database.
First, load the library:
install.packages("devtools") devtools::install_github("Giappo/dbmefu") library(dbmefu, quietly = TRUE)
First provide the database addresses
# Address of the main database address1 <- "https://drive.google.com/file/d/1j7EpOrkGWiWfIj1Q6IyV-S0cqIzG90Em/" # Address of the secondary database that you wish to integrate address2 <- "https://docs.google.com/spreadsheets/d/1AipazAj6Ebfuv0Kek4xMRYva8sodUQs-4AI3li0IbzY/"
Then you can download the databases and clean them
df1 <- dbmefu::import_df(address1) df2 <- dbmefu::import_df(address2) df1 <- dbmefu::ripulisci_df(df1) df2 <- dbmefu::ripulisci_df(df2)
Finally you can merge the databases with the following call
db_merged <- dbmefu::merge_db(df1 = df1, df2 = df2) print(db_merged)
You can check for example the list of all the editors in the complete database
editors <- dbmefu::lista_editori_unici(db_merged) editors
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.