ShinyApp работает, но запустить приложение не R - PullRequest
Новая
       19

ShinyApp работает, но запустить приложение не R

1 голос
/ 20 февраля 2020

Некоторые виджеты не работают правильно, когда я использую runApp, но когда я использую блестящее приложение, все работает нормально. Когда я использую runApp, я указываю хост и порт.

Виджеты, которые не работают, - это pickerInput из блестящих виджетов.

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

Вот как выглядит сайт с глянцевым приложением:

enter image description here

Так выглядит сайт с runApp:

enter image description here

РЕДАКТИРОВАТЬ:

вот пример кода: 

library(shiny)
library(shinyWidgets)

app = shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("responses", width = 300), tags$hr(),
    textInput("name", "Name", ""),
    checkboxInput("used_shiny", "I've built a Shiny app in R before", FALSE),
    sliderInput("r_num_years", "Number of years using R",
                0, 25, 2, ticks = FALSE),
    actionButton("submit", "Submit"),
    pickerInput(
        inputId = "lvl1", 
        label = "Level 1", 
        choices = c('one', 'two', 'three'), 
        options = list(
            `actions-box` = TRUE, 
            size = 10,
            `selected-text-format` = "count > 1"
        ), 
        multiple = TRUE
    )
  ),
  server = function(input, output, session) {


    output$responses <- DT::renderDataTable({
      data.frame(a = input$submit)
    })     
  }
)

если я просто наберу это в RStudio, он работает : 

app

Но, если я использую runApp, виджет pickerInput не отображается правильно в браузере. 

runApp(app, host="<some ip address>")

РЕДАКТИРОВАТЬ 2: если я использую runApp(app) и открою в браузере, приложение отображается правильно. Однако если я изменю URL в браузере с 127.0.0.1:port на localhost: port, он перестанет правильно отображать виджет.

РЕДАКТИРОВАТЬ 3:

Ошибки от chrome dev tools

enter image description here

Edit4: после закрытия работал корректно и повторное открытие R сессии. : - |

...