小编asd*_*212的帖子

我有一些闪亮的应用程序，我想执行并使其成为独立的应用程序（如果它可以通过 chrome 打开，那就太棒了）。我无法将应用程序上传到网络，我希望没有 R studio 或 R 的同事也能使用此应用程序。由于安全公司的原因 - 除了 R 软件包之外，我无法下载任何软件。我在这里看到了一些解决方案，但它们都包含任何软件下载。

我有这个闪亮的应用程序：

library(shiny)
library(DT)


ui <- fluidPage(
  fluidRow(
    DT::dataTableOutput(outputId = "my_data_table"),
  )
)


server <- function(input, output) {
  
  myValue <- reactiveValues(check = '')
  
  shinyInput <- function(FUN, len, id, ...) {
    inputs <- character(len)
    for (i in seq_len(len)) {
      inputs[i] <- as.character(FUN(paste0(id, i), ...))
    }
    inputs
  }
  
  
  my_data_table <- reactive({
    tibble::tibble(
      Name = c('Dilbert', 'Alice', 'Wally', 'Ashok', 'Dogbert'),
      Motivation = c(62, 73, 3, 99, 52),
      Actions = shinyInput(actionButton, 5,
                           'button_',
                           label = "Fire",
                           onclick = paste0('Shiny.onInputChange( \"select_button\" , this.id)') 
      )    
    )
  }) …