Запрос от R студии библиотеки "esquisse" - PullRequest
Новая
       11

Запрос от R студии библиотеки "esquisse"

0 голосов
/ 30 октября 2019

Я попытался включить «esquisse» в глянцевый_материал в параметры графика: параметры «Масштаб фасетов», «Позиции», «Отразить координаты» не работают. Пожалуйста, укажи мне выход. Вышеуказанные параметры работают на «блестящей странице флюида», тогда как они не работают на «блестящей странице материала».

Параметры, работающие на блестящей странице, когда я пытаюсь выполнить код: 

library(shiny)
library(esquisse)
ui <- fluidPage(
  tags$h1("Use esquisse as a Shiny module"),
  radioButtons(
    inputId = "data",
    label = "Data to use:",
    choices = c("iris", "churn_data_raw"),
    inline = TRUE
  ),
  tags$div(
    style = "height: 700px;", # needs to be in fixed height container
    esquisserUI(
      id = "esquisse",
      header = FALSE, # dont display gadget title
      choose_data = FALSE # dont display button to change data
    )
  )
)

server <- function(input, output, session) {
  data_r <- reactiveValues(data = iris, name = "iris")

  observeEvent(input$data, {
    if (input$data == "iris") {
      data_r$data <- iris
      data_r$name <- "iris"
    } else {
      data_r$data <- churn_data_raw
      data_r$name <- "churn_data_raw"
    }
  })

  callModule(module = esquisserServer, id = "esquisse", data = data_r)
}

shinyApp(ui, server)

При попытке выполнить код в вышеупомянутых параметрах не работает: 

library(shiny)
library(shinymaterial)
library(esquisse)

ui <- material_page(
  radioButtons(
    inputId = "data",
    label = "Data to use:",
    choices = c("iris", "churn_data_raw"),
    inline = TRUE
  ),
  tags$div(
    style = "height: 700px;", # needs to be in fixed height container
    esquisserUI(
      id = "esquisse",
      header = FALSE, # dont display gadget title
      choose_data = FALSE # dont display button to change data
    )
  )
)

server <- function(input, output, session) {
  data_r <- reactiveValues(data = iris, name = "iris")
  observeEvent(input$data, {
    if (input$data == "iris") {
      data_r$data <- iris
      data_r$name <- "iris"
    } else {
      data_r$data <- churn_data_raw
      data_r$name <- "churn_data_raw"
    }
  })

  callModule(module = esquisserServer, id = "esquisse", data = data_r)
}

shinyApp(ui, server)

Прикрепленные снимки экрана самоочевидны:

Не работаетв блестящем материале для вышеуказанного кода ..Image

Работа на странице жидкости для вышеуказанного кода ..Image

...