Открыть окно браузера по ссылке из таблицы R блестящих данных о сетевом подключении - PullRequest
Новая
       6

Открыть окно браузера по ссылке из таблицы R блестящих данных о сетевом подключении

1 голос
/ 05 марта 2020

Я пишу приложение для базы данных, которое должно открывать ссылку при нажатии. Это работает нормально, когда я запускаю приложение локально, однако, если я хочу открыть приложение с другого компьютера в той же сети, ссылка не открывается, и я не получаю уведомлений об ошибках. Если у вас есть какие-либо идеи относительно этого поведения или даже решения, я был бы очень признателен.

Этот mwe включает в себя все библиотеки, использованные в исходном коде. 

library(shiny)
library(shinythemes)
library(shinyjs)
library(RMySQL)
library(DT)
library(utf8)
library(rapport)
library(shinyWidgets)
library(htmltools)
library(readr)
library(config)
library(utils)

data<-as.data.frame(list(c("some","interesting","description"),c(10.0,12.3,0.21),c(1,2,.5),c(30,40,23),c("","https://en.wikipedia.org/wiki/Main_Page","")))
names(data)<-c("Entity","Value","SD","N","Links")

ui <- fluidPage(
      DTOutput('tbl')
      )

server <- function(input, output, session) {

  session$allowReconnect(T)

  output$tbl=DT::renderDataTable(datatable(data) %>% formatStyle(0,cursor = 'pointer',onmousedown='event.stopPropagation();'))

  observeEvent(input$tbl_cell_clicked,{
      if(!is.null(input$tbl_cell_clicked$value)){
        if(input$tbl_cell_clicked$col==5){
          href <- trimws(input$tbl_cell_clicked$value)
          utils::browseURL(href,browser = getOption("browser"))
        }
      }
    }
  )

}

shinyApp(ui, server)
...