Как создать рабочую гиперссылку в листовке из входного столбца CSV? - PullRequest
Новая
       24

Как создать рабочую гиперссылку в листовке из входного столбца CSV?

0 голосов
/ 14 апреля 2020

Как создать рабочую гиперссылку в пределах блеска и листовки из информации из столбца из файла CSV?

Допустим, у меня есть входной файл CSV в качестве входных данных для приложения Shiny and Leaflet, которое выглядит следующим образом .. . 

Site#   Lat                  Long                  Link
1       41.9582781716978,   -112.15752297501899    <a href="https://google.com">Link</a>
2       41.9582781716978,   -112.15752297501899    <a href="https://rstudio.github.io/leaflet/">Link</a>
etc

Я хотел бы создать карту с помощью листовки с гиперссылкой во всплывающем окне, но я не могу заставить ее работать. Каждый раз, когда возвращаемая всплывающая строка содержит дополнительную информацию о локальном хосте или хосте shinyapp, а не просто строку html, которая есть в моем файле ввода (например, возвращается как https://shinyapps.io/appexample/https: //google.com), 

#Example Code
library(shiny) 
library(leaflet) 

FileInput <- read.csv("inputfile.csv")

ui <- fluidPage(leafletOutput("mapA")))

server <- function(input, output) {
    output$mapA <- renderLeaflet({
      leaflet(data = FileInput) %>%
       addTiles("Title of Map") %>%
       addCircleMarkers(
          lng = FileInput$Long, 
          lat = FileInput$Lat,
          popup = FileInput$Link)
    )}
    }

shinyApp(ui = ui, server = server)

1 Ответ

0 голосов
/ 14 апреля 2020

Ах, ха. Хороший улов @Ben, строка, которую я создавал для моего столбца Link в моем FileInput.csv, была неправильной, в нее включены дополнительные кавычки, которые я заметил только при выполнении dput (head (FileInput)). Мне удалось немного поработать со строками и заставить его работать.

...