Мне удалась использовать MultiSystem для создания загрузочного USB с постоянством. Вы можете найти iso в SourceForge, и если вы хотите установить его в текущей системе, вот инструкции по установке с сайта MultiSystem
Этот код работает. trueFalse и errorMessage захватываются сервером, вызывая функцию, которая производит этот код и отображается с помощью renderText () на сервере и textOutput () в GUI
trueFalse = FALSE
# capture all the output to a file.
FILE <- file("log.txt", open = "wt")
sink(FILE)
sink(FILE, type = "message")
#try(log("a"))
try(message("Path does not exist. You can make changes to the PARAMS file. Afterwards, stop and restart glycoPipe"))
## revert output back to the console -- only then access the file!
sink(type = "message")
sink()
#file.show("log.txt")
errorMessage <- (readLines("log.txt"))
Этот код работает. trueFalse и errorMessage захватываются сервером, вызывая функцию, которая производит этот код и отображается с помощью renderText () на сервере и textOutput () в GUI
trueFalse = FALSE
# capture all the output to a file.
FILE <- file("log.txt", open = "wt")
sink(FILE)
sink(FILE, type = "message")
#try(log("a"))
try(message("Path does not exist. You can make changes to the PARAMS file. Afterwards, stop and restart glycoPipe"))
## revert output back to the console -- only then access the file!
sink(type = "message")
sink()
#file.show("log.txt")
errorMessage <- (readLines("log.txt"))