-
Notifications
You must be signed in to change notification settings - Fork 1
/
WEsitecreator.R
49 lines (38 loc) · 1.63 KB
/
WEsitecreator.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
deployed =FALSE # deployed on shinyapps.io ?
dropboxuse = deployed # should the dropbox integration be used
shiny::runApp("shiny_resultgallery.R")
## deploy the app
unlink ("./static/ResultGallery/figures",recursive = TRUE)
unlink ("./data",recursive = TRUE)
unlink ("./www",recursive = TRUE)
dir.create("./www/css/", recursive = TRUE)
dir.create("./data", recursive = TRUE)
file.create("./data/item.toml")
file.copy(from ="static/css/default.css", to ="www/css/default.css")
rsconnect::deployApp(appFiles = "shiny_resultgallery.R")
## now deploy
library(dplyr)
library(readr)
library (magick)
library(rcrossref) ## getting year published from doi
library(pander) ## creating reports
source("functions.R")
library (knitr)
library(rmarkdown)
library (zip)
#blogdown::new_site(theme="aerohub/hugrid", hostname = "github.com") #used to create the website,kept for reference
## give here url of publication where the copyrights issues were not cleared.
problematicpubli= c()
pathfolder ="static/ResultGallery"
pathfigure = paste0(pathfolder,"/figures/") ## if this change, need to be changed in rdrop2use.R
author = "jco"
file.lines <- scan("static/ResultGallery/info.r", what=character(), nlines=1, sep='\n')
source(textConnection(file.lines))
source (file ="hallcreator.R")
blogdown::hugo_cmd("--config ./config.toml,./static/ResultGallery/info.toml")
blogdown::hugo_build()
blogdown::hugo_cmd("--config config.toml,config_pub.toml") #bulid dat version
blogdown::hugo_cmd("--config ./config.toml,./static/ResultGallery/info.toml")
##setwd("website-cards")
#blogdown::new_site(theme="bul-ikana/hugo-cards", hostname = "github.com")
#blogdown::serve_site()