Html 如何使用“/%”s"；将函数转换为r

我无法在r中打开html文件并将其显示为闪亮的代码

我正在尝试通过R程序实现：

ui.R

tabItem(tabName = "ndvi",
  fluidPage(tags$style(type = "text/css", "#map{height: 800px !important;}"),
  fluidRow(
    column(2, 
      dateInput("date1", 
                label = "DATE",
                value = "2018-08-07")
    )
  ),

  fluidRow(
    htmlOutput("frame1")

 framePath <- reactive({
return(sprintf("http://10.0.6.179:5656/WEB_NKR/ndvi_shape_files/agro_priishimski//%s_agro_priishimski.html", input$date1))

  })  

  output$frame1 <- renderUI({
    tags$iframe(seamless="seamless", src=framePath(), height=800, width=1650)
  })

server.R

tabItem(tabName = "ndvi",
  fluidPage(tags$style(type = "text/css", "#map{height: 800px !important;}"),
  fluidRow(
    column(2, 
      dateInput("date1", 
                label = "DATE",
                value = "2018-08-07")
    )
  ),

  fluidRow(
    htmlOutput("frame1")

 framePath <- reactive({
return(sprintf("http://10.0.6.179:5656/WEB_NKR/ndvi_shape_files/agro_priishimski//%s_agro_priishimski.html", input$date1))

  })  

  output$frame1 <- renderUI({
    tags$iframe(seamless="seamless", src=framePath(), height=800, width=1650)
  })

---

framePath此处应该只有一个斜杠：
agro\u priishimski//%s\u agro\u priishimski.html
。删除一条斜线。但我不知道这是否足以解决这个问题。你能在浏览器中打开吗？如果是，请删除一条斜线。此处应该只有一条斜线：
agro\u priishimski//%s\u agro\u priishimski.html
。删除一条斜线。但我不知道这是否足以解决这个问题。你能在浏览器中打开吗？如果是，请删除一条斜线。