关于r:LinktoalocalhtmlfileonRMarkdownwithShiny

    [link_1](www/my_file.html)

    [link_2](my_file.html)

    [link_3](file://www/my_file.html)

    ```{r shiny_links, echo=F, eval=T}

    renderUI(tags$a("link_4", href="https://www.codenong.com/60326689/my_file.html", target="_blank"))

    renderUI(tags$a("link_5", href="https://www.codenong.com/60326689/www/my_file.html", target="_blank"))

    renderUI(tags$a("link_6", href="file://www/my_file.html", target="_blank"))

    shinyAppFile("shiny_app.R")

    ```

    ui <- fluidPage(

        htmlOutput("link")

    )

    server <- function(input, output) {

      output$link <- renderUI(tags$a("single_link", href="https://www.codenong.com/60326689/my_file.html", target="_blank"))

    }

    shinyApp(ui = ui, server = server)

    ```{r setup, include = FALSE}

    library(knitr)

    library(shiny)

    library(here)

    shiny::addResourcePath(prefix ="www", directoryPath = here::here("www"))

    ```

    Relative File Path: [My HTML file](www/my_file.html)

    Relative File Path: My HTML file  

    Absolute File Path: shinyapps.io

    Relative File Path:

    ```{r shiny-relative-links, echo = FALSE, eval = TRUE}

    tags$a(href="https://www.codenong.com/60326689/www/my_file.html",

       tags$span(style ="color: #03a9f4","My HTML file"),

       target ="_blank")

    ```

    Absolute File Path:

    ```{r shiny-absolute-links, echo = FALSE, eval = TRUE}

    tags$a(href="http://www.shinyapps.io/",

       tags$span(style ="color: #03a9f4","shinyapps.io"),

       target ="_blank")

    ```