В R, как я могу сохранить HTML

Question

Я пытаюсь сохранить HTML для данных моей лаборатории, чтобы обновить нашу вики. Прямо сейчас текущий скрипт сохраняет на своем сервере, к которому у меня нет доступа из дома (я RA, поэтому у меня также нет разрешений для VPN). Мы работаем из дома прямо сейчас в ситуации с COVID-19.

Это должно быть легко исправить. Мой рабочий каталог обращается к нашему ownCloud. Я действительно хочу знать, есть ли способ сохранить HTML только на моем компьютере прямо сейчас, чтобы я мог добавить его на наш сервер, когда у меня снова будет доступ. В качестве альтернативы, если есть способ сохранить его ownCloud, то это может быть полезно, но немедленным использованием будет сохранение его на моем компьютере.

Мой код прямо здесь, если вы хотите увидеть то, что я написал в данный момент. :

#-------------------- produce HTML for wiki CHILD -------------------------#

###PRE
ChildSRPtotsPre_wiki <- ChildALL[c("familySIDC",'time',"SCAREDC_T","CDIC_T")]
ChildSRPtotsPre_wiki <- ChildSRPtotsPre_wiki[which(ChildSRPtotsPre_wiki$time == 'Pre'),]


ChildSRPtotsPre_wiki <- ChildSRPtotsPre_wiki[c("familySIDC","SCAREDC_T","CDIC_T")]

ChildSRPtotsPre <- ChildSRPtotsPre_wiki



ChildSRPtotsPre_wiki[nrow(ChildSRPtotsPre_wiki) + 1,] = list("MEAN",mean(ChildSRPtotsPre$CDIC_T),mean(ChildSRPtotsPre$SCAREDC_T))
ChildSRPtotsPre_wiki[nrow(ChildSRPtotsPre_wiki) + 1,] = list("SD",sd(ChildSRPtotsPre$CDIC_T),sd(ChildSRPtotsPre$SCAREDC_T))

HTML(ChildSRPtotsPre_wiki, file= paste('', 'SRPsum','_',Sys.Date(), '.txt', sep = ""), options(digits=3), innerBorder = 1,append = FALSE, align = "right", row.names = FALSE)

###POST
ChildSRPtotsPost_wiki <- ChildALL[c("familySIDC",'time',"SCAREDC_T","CDIC_T")]
ChildSRPtotsPost_wiki <- ChildSRPtotsPost_wiki[which(ChildSRPtotsPost_wiki$time == 'Post'),]


ChildSRPtotsPost_wiki <- ChildSRPtotsPost_wiki[c("familySIDC","SCAREDC_T","CDIC_T")]

ChildSRPtotsPost <- ChildSRPtotsPost_wiki



ChildSRPtotsPost_wiki[nrow(ChildSRPtotsPost_wiki) + 1,] = list("MEAN",mean(ChildSRPtotsPost$CDIC_T),mean(ChildSRPtotsPost$SCAREDC_T))
ChildSRPtotsPost_wiki[nrow(ChildSRPtotsPost_wiki) + 1,] = list("SD",sd(ChildSRPtotsPost$CDIC_T),sd(ChildSRPtotsPost$SCAREDC_T))

HTML(ChildSRPtotsPost_wiki, file= paste('', 'SRPsum','_',Sys.Date(4-20-20), '.txt', sep = ""), options(digits=3), innerBorder = 1,append = FALSE, align = "right", row.names = FALSE)

ПРИМЕЧАНИЕ. Две пустые метки '' после вставки (будут каталогом на сервере. Я вынул его, чтобы защитить IP.

Answer 1

Я бы попытался указать локальное имя файла в file в последней строке. Windows пример: file = "C:/some/directory/filename.html".

Если функция HTML относится к пакету R, то ?HTML вызовет диалоговое окно справки, в котором указаны параметры для команды HTML. Если это пользовательская функция, вам, возможно, придется связаться с человеком, который написал функцию, чтобы узнать, как она работает; или вы можете набрать HTML, чтобы прочитать исходный код функции.