Question

我最近了解到在RStudio中应用闪亮的基础，我看到了这个包的全局操作。

但即使我在网站上发现了一些有趣的元素，我也无法找到我想做的事情。

我会解释我的问题：

我已经在R中编写了函数，它与具有函数readlines(prompt="")和print"的用户进行交互，但是为了避免人们继续使用R，我想要创建闪亮的应用程序。

我找到了在闪亮系统中包含函数脚本的方法： http://shiny.rstudio.com/tutorial/lesson5/

但即使我尝试过本网站的许多参考功能，我也无法创建一个闪亮的窗口，允许启动我的脚本： http://shiny.rstudio.com/reference/shiny/latest/

为renderPrint或renderText。

PS：我想这样做是为了对我构建的许多功能进行最少的修改。

示例：我已经这样做了：

library(Shiny)
dir="MyDirectory"
source(paste(dir,"/PathToMyFunction/MyFunction.r",sep=""))
#############################################################
server<-function(input, output) {

output$Nettoyage<- renderPrint({

step1 <- switch(input$STEP, 
               "TRUE" = TRUE,
               "FALSE" = FALSE)

step2 <- switch(input$STEP, 
                "TRUE" = TRUE,
                "FALSE" = FALSE)

MyFunction(dir=dir,STEP1=step1,STEP2=step2) 

})
}
#############################################################
ui<-navbarPage('Outils', id="page", collapsible=TRUE, inverse=FALSE,
           tabPanel("Onglet1",
                    tabsetPanel(
                      ###
                      id='Onglet1_tabs',                           
                      ###
                      tabPanel("SubOnglet2",

                        fluidPage(titlePanel("Tâche de l'onglet 2"),
                           sidebarLayout(
                             sidebarPanel(
                               helpText("Iteractive texte"),

                                selectInput(inputId ="STEP1", 
                                  label = "Application première étape",
                                  choices = c("TRUE", "FALSE"),
                                  selected = "Etape 1 appliquée"),

                                selectInput(inputId ="STEP2", 
                                   label = "Application deuxième étape",
                                   choices = c("TRUE", "FALSE"),
                                   selected = "Etape 2 appliquée"),
                                 ),

                                 #mainPanel(plotOutput("Nettoyage"))
                                 #mainPanel(textOutput("Nettoyage"))
                                 mainPanel(printableOutput("Nettoyage"))
                                 #mainPanel(printoutput ("Nettoyage"))

                               )

                      )     
                 )
             )
#############################################################

当我启动函数“ui”时，我有以下错误消息：

Error in tag("form", list(...)) : argument is missing, with no default

我不明白这个问题，但我认为那是“renderPrint”和“printableOutput”，它们不是合适的功能。

我希望我的问题足够准确。

注意：如果我对“MyFunction”工作的解释不清楚，我会写一些其中一些例子的例子：

MyFunction<-function(dir,STEP1=FALSE, STEP2=FALSE){
[...]
tab<- apply(Data,c(1,2),as.numeric)
print(tab)
[...]
Line<-readline(prompt="Select the good line : ")
Line<-as.numeric(Line)
[...]

}

我想在闪亮的“打印”和“readline（prompt =”“）”中出现

如果有人可以帮助我，那就太棒了

在闪亮中加入交互式功能以突出显示“readlines”和“print”

0 个答案: