为了保存R中的HTML交互式文件,可以使用shiny包中的runApp函数和shinyApp函数。下面是一个例子:
library(shiny)
# 定义UI界面
ui <- fluidPage(
sliderInput("num", "选择一个数字", min = 1, max = 100, value = 50),
verbatimTextOutput("output")
)
# 定义服务器端
server <- function(input, output){
output$output <- renderPrint({
paste("您选择的数字是:", input$num)
})
}
# 运行应用程序
shinyApp(ui = ui, server = server)
在R中运行这段代码将生成一个交互式的滑块和文本框,用于选择数字并输出结果。在运行应用程序后,可以单击"Open in Browser"按钮将网页保存到HTML文件中。