hoverinfo - plotly r color

Mouseover en plotly y brillante

Question

Tengo un código plotly que llama perfectamente a los nombres de fila de un dataframe en mouseover dentro de RStudio y en RPubs. . . pero no cuando está incrustado en Shiny. El código básico es:

require(shiny)
require(plotly)
Trial <- read.table("http://history.emory.edu/RAVINA/Aozora/Data/Trial.txt", row.names = 1)
plot_ly(Trial, x=V1, y=V2, text=rownames(Trial), mode = "markers") 

La versión Shiny, sin embargo, está completamente muerta. ¿Qué me estoy perdiendo?

require(shiny)
require(plotly)
Trial <- read.table("http://history.emory.edu/RAVINA/Aozora/Data/Trial.txt", row.names = 1)
ui <- fluidPage(
titlePanel("Word Frequency Analysis for Meiji-era Authors"),
mainPanel(
plotOutput("plot"),
dataTableOutput("Print")
)
)
server <- function(input, output){
output$plot<-renderPlot({
p <- plot_ly(Trial, x=V1, y=V2, text=rownames(Trial), mode = "text")
plot(p)
})
output$Print<-renderDataTable({Trial})
}
shinyApp(ui = ui, server = server)

Answer 1

Necesita intercambiar algunas funciones básicas brillantes para sus homólogos de la trama. Es decir, plotOutput -> plotlyOutput y renderPlot -> renderPlotly . Además, esa última plot(p) no es lo que desea devolver: solo desea devolver p (el objeto de la trama).

require(shiny)
require(plotly)
Trial <- read.table("http://history.emory.edu/RAVINA/Aozora/Data/Trial.txt", row.names = 1)
ui <- fluidPage(
titlePanel("Word Frequency Analysis for Meiji-era Authors"),
mainPanel(
plotlyOutput("plot"),
dataTableOutput("Print")
)
)
server <- function(input, output){
output$plot<-renderPlotly({
p <- plot_ly(Trial, x=V1, y=V2, text=rownames(Trial), mode = "text")
#plot(p)
p
})
output$Print<-renderDataTable({Trial})
}
shinyApp(ui = ui, server = server)