str_replace_last('Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\\n macro = \\n')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% str_replace_first('Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last('Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\\n macro = \\n')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% str_replace_first('Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\\n macro = \\n')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\\n macro = \\n')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \n')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(pattern='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(pattern='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') stri_replace_last('farmdata farmdata farmdata', regex = 'farmdata', replacement = 'AAAAAAAAAAAAAAAAAAAAAA') stri_replace_first('farmdata farmdata farmdata', regex = 'farmdata', replacement = 'AAAAAAAAAAAAAAAAAAAAAA') a<- a %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) a <- a %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) a %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') ## Library loading ---- library(gdxrrw) library(data.table) library(arsenal) library(tidyverse) ## Directory specification ---- GAMSDir = "C:/GAMS/40" # Change to your GAMS Version! #ADCDir = "C:/FARMDYNDATA/ADC" BINDir = "C:/FARMDYNDATA/BIN" #LMMDir = "W:\\WECR\\PIA\\PW\\DZK\\GHG2020\\output Jakob" MyLMMDir = "C:/FARMDYNDATA/LMM" MyBINDir = "C:/FARMDYNDATA/MYBIN" MyDRAMDir = "C:/FARMDYNDATA/DRAM" FDDir = "C:/FARMDYNTRUNK/DAT" WWLDir <- "C:/FARMDYNDATA/WWL" RDir = "C:/FARMDYNDATA/R" ### Filenames ---- farmdata2abn <- "farmdata2ABN.gdx" # For testing # GAMS loading igdx(GAMSDir) # Working directory setwd(RDir) setwd("C:/FARMDYNDATA/R/DynR") readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') library(stringr) library(stringi) readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') a<-readLines(con='test.txt') a a<-readLines(con='test.txt') readLines(con='feiktekst.txt') %>% stri_replace_first(regex = 'AAAA', 'Changed') readLines(con='feiktekst.txt') %>% stri_replace_first(regex = 'AAAA', 'Changed') %>% writeLines(con='feiktekst.txt') readLines(con='feiktekst.txt') %>% sub('AAAAA', 'Changed') %>% writeLines(con='feiktekst.txt') readLines('genericbatchfile.txt')[1] readLines('genericbatchfile.txt')[1:10] readLines('genericbatchfile.txt')[1:11] readLines('genericbatchfile.txt') %>% sub(pattern = 'Farm sample file= \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) readLines(con='feiktekst.txt') %>% stri_locate_first_fixed('AAAAA') readLines(con='feiktekst.txt') %>% stri_locate_first_fixed('AAAAA')[,1] readLines(con='feiktekst.txt') %>% stri_locate_first_fixed(pattern = 'AAAAA')[,1] readLines(con='feiktekst.txt') %>% stri_locate_first_fixed(pattern = 'AAAAA')[1,] readLines(con='feiktekst.txt') %>% stri_locate_first_fixed(pattern = 'AAAAA') stri_locate_first_fixed(readLines(con='feiktekst.txt'), pattern = 'AAAAA') stri_locate_first_fixed(readLines(con='feiktekst.txt'), pattern = 'AAAAA')[,1] stri_locate_first_fixed(readLines('genericbatchfile.txt'), pattern = 'Farm sample file = \\w*')[,1] stri_locate_first_fixed(readLines('genericbatchfile.txt'), pattern = 'Farm sample file =')[,1] rownames(stri_locate_first_fixed(readLines('genericbatchfile.txt'), pattern = 'Farm sample file =')[,1]) stri_locate_first_fixed(readLines('genericbatchfile.txt'), pattern = 'Farm sample file =') count(is.na(stri_locate_first_fixed(readLines('genericbatchfile.txt'), pattern = 'Farm sample file ='))) readLines('genericbatchfile.txt')[.1] readLines('genericbatchfile.txt')[,1] readLines('genericbatchfile.txt') %>% t() paste(unlist(readLines('genericbatchfile.txt')), collapse = ' ') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') paste(unlist(readLines('genericbatchfile.txt')), collapse = ' ') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% cat() %>% writeLines(con = 'test.txt') cat(readLines('genericbatchfile.txt')) %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') cat(readLines('genericbatchfile.txt')) cat(readLines('genericbatchfile.txt')) %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') cat(readLines('genericbatchfile.txt')) %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% stri_replace_first(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% stri_replace_last(regex='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') str_match(readLines('genericbatchfile.txt'), 'Farm sample file =') grepl('Farm sample file = \\w*', readLines('genericbatchfile.txt')) min(grepl('Farm sample file = \\w*', readLines('genericbatchfile.txt'))) min(grepl('Farm sample file = \\w*', readLines('genericbatchfile.txt'))) grepl('Farm sample file = \\w*', readLines('genericbatchfile.txt'))) grepl('Farm sample file = \\w*', readLines('genericbatchfile.txt')) readLines('genericbatchfile.txt')[grepl('Farm sample file = \\w*', readLines('genericbatchfile.txt'))] readLines('genericbatchfile.txt')[grepl('Farm sample file = \\w*', readLines('genericbatchfile.txt'))][] readLines('genericbatchfile.txt')[grepl('Farm sample file = \\w*', readLines('genericbatchfile.txt'))][1] str_replace stri_replace_first view(stri_replace_first) view(stri_replace_first_regex) stri_replace_first_regex str_firstLine_replace <- function(str, pattern, replacement) { str[grepl(pattern=pattern, x=str)][1] <- replacement return(str) } str_firstLine_replace(readLines('genericbatchfile.txt'), pattern = 'Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs'))) str_firstLine_replace(readLines('genericbatchfile.txt'), pattern = 'Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) str_lastLine_replace <- function(str, pattern, replacement) { str[grepl(pattern=pattern, x=str)][length(str[grepl(pattern=pattern, x=str)])] <- replacement return(str) } readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% str_firstLine_replace(pattern='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs')) %>% str_lastLine_replace(pattern='Farm sample file = \\w*', replacement = paste0('Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% str_firstLine_replace(pattern='Farm sample file = \\w*', replacement = paste0(' Farm sample file = ', 'farmData_', 'ABNRegs')) %>% str_lastLine_replace(pattern='Farm sample file = \\w*', replacement = paste0(' Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% str_firstLine_replace(pattern='Farm sample file = \\w*', replacement = paste0(' Farm sample file = ', 'farmData_', 'ABNRegs')) %>% str_lastLine_replace(pattern='Farm sample file = \\w*', replacement = paste0(' Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = \b')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') readLines('genericbatchfile.txt') %>% str_replace(pattern = 'Scenario description = \\w*', replacement = paste0('Scenario description = ', 'ABNRegs')) %>% str_firstLine_replace(pattern='Farm sample file = \\w*', replacement = paste0(' Farm sample file = ', 'farmData_', 'ABNRegs')) %>% str_lastLine_replace(pattern='Farm sample file = \\w*', replacement = paste0(' Farm sample file = ', 'farmData_', 'ABNRegs', '\n macro = ')) %>% str_replace('farmIds = \\w*', replacement = paste0('farmIds = ', paste0('ABNRegs', '\\'))) %>% str_replace('execute=Gamsrun', replacement = ' startparallel FOR farmidinloop = %allfarms% farmIds = %farmidinloop% execute = Gamsrun ENDFOR collectparallel * execute=Gamsrun ') %>% writeLines(con = 'test.txt') devtools::document() devtools::document() devtools::document() library(DynR) ??DynR devtools::document() devtools::document() roxygen2::roxygenize() rm(list = c("str_firstLine_replace", "str_lastLine_replace", 'str_Line_replace()')) devtools::document() devtools::build_manual() devtools::build_readme() devtools::build() devtools::load_all() ??str_lastLine_replace() ??str_firstLine_replace() help(str_firstLine_replace()) devtools::document() devtools::build_manual() devtools::build() devtools::build_manual() devtools::build_readme() help(str_firstLine_replace()) help(str_firstLine_replace ) help(str_lastLine_replace) devtools::document() devtools::document() devtools::document() pkgload::dev_help('str_line_replace') devtools::document() pkgload::dev_help('str_line_replace') pkgload::dev_help('str_line_replace') devtools::document() pkgload::dev_help('str_line_replace') devtools::document() devtools::load() devtools::load_all devtools::load_all() library(DynR) help(str_line_replace) setwd("C:/FARMDYNDATA/R/DynR") library(DynR) help(str_line_replace) devtools::install() library(DynR) help(str_line_replace) devtools::u uninstall() devtools::u uninstall('DynR') devtools::uninstall() devtools::install() library(DynR) help(str_line_replace) help(str_line_replace) help(DynR::str_line_replace()) library(DynR) help("str_line_replace) ) help("str_line_replace") devtools::install() devtools::install() setwd("C:/FARMDYNDATA/R/DynR/R") setwd("C:/FARMDYNDATA/R/DynR") devtools::install() library(DynR) devtools::uninstall() devtools::install() library(DynR) help("str_lastLine_replace") library(DynR) somelines <- c('AAAAA', 'textytext', 'BBBBB', 'AAAAA', 'writingwriting', 'AAAAA', 'etc', 'etc', 'BBBBB') str_line_replace(somelines, pattern = 'AAAAA', 'changedall', which = 'all') print(str_line_replace(somelines, pattern = 'AAAAA', 'changedall', which = 'all')) stringr::str_replace(somelines, 'AAAAA', 'changedall') setwd("C:/FARMDYNDATA/R/DynR") devtools::uninstall() devtools::install() library(tidyverse) # open package tidyverse (if you don't have it, run install.packages('tidyverse') in the console) # Creation of example data df <- data.frame(mitigation=c('reduced feed losses', 'nr lactations', 'feed ads','endogenous'), width=c(2,5,12,3), height=c(20,30,70,120) ) df$w <- cumsum(df$width) # Calculating cumulative sum of the widths df$wm <- df$w - df$width df$wt <- with(df, wm+(w-wm)/2) p <- ggplot(df, aes(ymin=0)) p1 <- p + geom_rect(aes(xmin=wm, xmax=w, ymax=height, fill=mitigation)) p2 <- p1 + geom_text(aes(x=wt, y=height*0.5, label=mitigation), size = 4) p2+theme_bw()+ ylab('MAC')+ xlab('Reduction')+ guides(fill=guide_legend(title='Mitigation measures')) df$wm setwd("C:/FARMDYNDATA/R/FarmDynR") setwd("C:/FARMDYNDATA/R/FarmDynR") devtools::document() devtools::build_manual() devtools::build_manual() devtools::build_manual() devtools::build_manual() devtools::document() devtools::build_manual() devtools::document() devtools::build_manual() devtools::document() devtools::document() devtools::build_manual() devtools::document() devtools::build_manual() devtools::build_manual() devtools::document() devtools::build_manual() devtools::document()\ devtools::document() devtools::document()\ devtools::build_manual() devtools::document() devtools::build_manual() devtools::document() devtools::build_manual() devtools::document() devtools::document() devtools::build_manual() devtools::load_all() help(gdxbinwider) devtools::document() devtools::document() devtools::build_manual() devtools::load_all() help(gdxbinwider) devtools::install() devtools::install() devtools::install() devtools::install() devtools::build_readme() devtools::build_site() devtools::build_readme() devtools::show_news() devtools devtools::release() devtools::release() devtools::release() devtools::release_checks() devtools::spell_check() devtools::build_vignettes() devtools::show_news() devtools::install devtools::install() library(FarmDynR) help(gdxbinwider) help(groupstats)