При загрузке файла HTML через интерфейс он автоматически сохраняется в каталоге на сервере
Я пытался использовать функцию "visSave", но эта не работает
библиотека (блестящий)
pageWithSidebar (
headerPanel ( "Пример"),
sidebarPanel (
textInput("path", "File:"),
actionButton("browse", "Browse"),
actionButton("upload", "Upload Data")
),
mainPanel (
htmlOutput('content'),
htmlOutput('savehtml')
)
) * * тысяча двадцать-один
library(shiny)
server <- функция (вход, выход, сессия) {</p>
наблюдать ({
if (input$browse == 0) return()
updateTextInput(session, "path", value = file.choose())
* * 1 028})
contentInput <- реактивный ({</p>
if(input$upload == 0) return()
isolate({
writeLines(paste(readLines(input$path), collapse = "\n"))
})
})
output $ content <- renderUI ({</p>
tags$iframe(seamless="seamless", src=contentInput(), height=500,
ширина = 1500)
* +1040 *}) * 1 041 *
output $ savehtml <- renderUI ({</p>
htmltools::save_html(html = contentInput(), file = "D:\\prosto/151.html",
background = "white", libdir = 'lib')
}) * * тысяча сорок шесть
}
при загрузке файла HTML через интерфейс он автоматически сохраняется в каталоге на сервере. Помоги мне, пожалуйста. Спасибо!