Sys.Date()
Sys.Date()
readLines("News.MD")
library(tidyverse)# to handle data
library(readxl) #to read xlsx files
data_ownership <-
read_xlsx("Final_Data/Supporting_files/Verified_studies/FINAL_Data ownership.xlsx") %>%
as_tibble() %>%
rename(name=Name,
affiliation=Affiliation,
role=Role,
funding=`Acknowledgments/Funding`
) %>%
select(study_id,name,affiliation, email,role,funding)
