各位老师好,我在用mvpart 这个R包做数据分析,并且把代码加在shiny中,发现mvpart的交互功能消失了,仅仅出现图片(无交互功能),但是同样的代码在R或Rstudio中是存在交互的,下面是代码,请各位老师指教:
library(mvpart)
example("mvpart")####在R或Rstudio运行这个例子,即可看到交互
###下面为shiny代码,运行、点击“sure”即可出图,但交互功能消失
library(shiny)
library(shinydashboard)
library(DT)
library(mvpart)####devtools::install_github("cran/mvpart")
body <- dashboardBody(
tabItems(
tabItem(tabName = "MRT",
tabBox(title = tagList(icon("gear"), "resultsplot"),width = 9,side="right",
tabPanel(title="results",plotOutput("sdp0"),
hr(),align="center",
actionButton("done0","sure",icon= icon("plus")))))))
dashboardSidebar <- dashboardSidebar(collapsed = FALSE,disable = FALSE,
sidebarMenu(menuItem("mvpart", startExpanded=F,icon = icon("bar-chart-o"),
menuSubItem("MRT",tabName = "MRT", icon = icon("line-chart")))))
#####merge
ui <- dashboardPage(skin="blue",
dashboardHeader(title = "myshiny"),
dashboardSidebar,
body
)
####server function
server <- function(input, output) {
myplot_MRT <- eventReactive(input$done0, {
example("mvpart")
})
output$sdp0<-renderPlot({
myplot_MRT()})
}
shinyApp(ui, server)