Interactive R custom visuals with manipulatedwidget

[Anonymous]

Hi , 

We would like to combine the use template RHTML (ggplot2) and manipulatedwidget (but manipulatedwidget package R is not included in list of package in powerBI) for create an internal custom visual R

Requierements : 

Change the dimensions/attributs in the visual R and keep the interactive part.

Is there another way ? 

library(manipulateWidget)
library(plotly)

plotTest <- function(xvar, yvar, zvar){
  
  plot_ly(x = ~dataset[[xvar]], y = ~dataset[[yvar]], color = ~dataset[[zvar]],
          type = "scatter", mode = "markers") %>% 
    layout(xaxis = list(title=xvar), yaxis = list(title=yvar))
}

plotTest("Dim1", "Dim2", "Cluster")

varNames <- names(dataset)[2:6]
variables <- names (dataset)[7:10]

manipulateWidget(
  plotTest(xvar, yvar, zvar),
  xvar = mwSelect(varNames),
  yvar = mwSelect(varNames, value = "Dim1"),
  zvar = mwSelect (variables, value = "Cluster")

)

Thanks for your help, 

Fanny