Отключить автомасштаб при нажатии на график, сюжет R Shiny - PullRequest
Новая
       41

Отключить автомасштаб при нажатии на график, сюжет R Shiny

0 голосов
/ 25 апреля 2018

Я использую R Shiny, и в моем созданном приложении, между другими, у меня также есть график.

Моя проблема в том, что я хочу отключить автоматическую опцию автоматического масштабирования при нажатии на изображение. Это происходит двойным щелчком при доступе через компьютер, но только простым щелчком при доступе через мобильный телефон (что является основной причиной, по которой мне нужно внести это изменение, людям, которые будут его использовать, часто потребуется доступ к нему через свои мобильные телефоны).

Я нашел эту документацию https://shiny.rstudio.com/reference/shiny/1.0.2/plotOutput.html но, похоже, не работает с сюжетом. Воспроизводимый пример дается 

library(shiny)
library(RMySQL)
library(rsconnect)
library(plotly)
library(stats)
library(graphics)

function(input, output) {
  x <- seq(2006,2018)
  y <- c(800,950,640,540,870,980,870,640,540,920,910,700,830)
  z <- y + 30
  qfit <- lm(y ~ x + I(x^2))

  output$plot <- renderPlotly ({
    plot <- plot_ly() %>%
    add_trace(x=x, y=y, type="bar", name="value") %>%
    add_trace(x=x, y=z, type="scatter", mode="markers", yaxis = 'y2', name='new') %>%
    layout(legend = list(orientation = "h", xanchor = "center",  x = 0.5),
        xaxis = list(dtick=1),
        yaxis = list(title = "Price", side = 'left', range = c(500,1200), showgrid=FALSE),
        yaxis2 = list(title = "Score", side = 'right', overlaying = "y", range = c(500,1200), showgrid=FALSE))
    plot
  })
}

(файл server.R),

и 

library(shiny)
library(RMySQL)
library(rsconnect)
library(plotly)
library(stats)
library(graphics)
library(shinythemes)

renderUI(fluidPage(theme = shinytheme("slate"),
                   titlePanel(div(HTML(""))),
                   mainPanel(
                     plotlyOutput("plot")
                     )))

(файл ui.R).

Это дает график, но если я заменю 

plotlyOutput("plot")

от 

plotlyOutput("plot", dblclick = FALSE)

, чтобы отключить эффект двойного щелчка, Я получаю ошибку:

Ошибка: неиспользованный аргумент (dblclick = FALSE)

В случае, если это связано с библиотеками, маскирующими функции между собой, я использую следующие библиотеки: Блестящий, RMySQL, rsconnect, сюжет, статистика, графика, plyr, DBI, sparklyr, графика, Блестящие темы, статистика хотя я сомневаюсь, что это так.

Может кто-нибудь помочь мне в этом?

Буду признателен!

В любом случае, спасибо,

Яннис

...