通过界面上传HTML文件时，一个HTML文件会自动保存到服务器上的目录中
我尝试使用“ visSave”功能，但此功能不起作用
图书馆（闪亮）
pageWithSidebar（
headerPanel（“ Example”），
sidebarPanel（
textInput("path", "File:"),
actionButton("browse", "Browse"),
actionButton("upload", "Upload Data")
），
mainPanel（
htmlOutput('content'),
htmlOutput('savehtml')
）
）
library(shiny)
服务器<-功能（输入，输出，会话）{
观察（{
if (input$browse == 0) return()
updateTextInput(session, "path", value = file.choose())
}）
contentInput <-反应性（{
if(input$upload == 0) return()
isolate({
writeLines(paste(readLines(input$path), collapse = "\n"))
})
}）
output $ content <-renderUI（{
tags$iframe(seamless="seamless", src=contentInput(), height=500,
width = 1500）
}）
output $ savehtml <-renderUI（{
htmltools::save_html(html = contentInput(), file = "D:\\prosto/151.html",
background = "white", libdir = 'lib')
}）
}
通过界面上传HTML文件时，一个HTML文件会自动保存到服务器上的目录中。请帮帮我。谢谢！