小编sba*_*ers的帖子

我只是好奇是否有办法动态调用函数.例如.

Sub foo1()
   Debug.Print "in foo1"
End Sub

Sub foo2()
   Debug.Print "in foo2"
End Sub

有没有办法让我可以这样做:

Sub callSomeFoo(i as Integer)
   Call foo&i
End Sub

或者是这样的必要:

Sub callSomeFoo(i as Integer)
   Select Case i
      Case 1 
         Call foo1
      Case Else
         Call foo2
   End Select
End Sub

不是紧迫的事情......只是好奇.任何其他创造性的事情要做功能调用也是受欢迎的.

谢谢!

edit1:这是我的代码和下面列出的错误:

Sub foo1()
   Debug.Print "in foo1"
End Sub


Sub foo2()
   Debug.Print "in foo2"
End Sub


Sub callSomeFoo()
   Dim i%
   'using a cell on the worksheet to determine the function. Happens to be "1"
   i …

在谈到这个就如何建立你的闪亮的应用程序完全在HTML,我想知道是否有任何方式使用结合这种方法与使用传统的ui.r方法.

原因:这种使用D3和R Shiny的方法似乎需要将所有D3代码放入index.html文件中.但我也想要一些交互性(selectInputs,dateRangeInputs,多个标签等).有什么建议？

在此先感谢您的帮助.我理解如何根据预定义数据集的其他输入操作动态输入.即加载汽车数据集.用户选择单选按钮说他们只想看蓝色车.这会更改UI上某些输入选择器中的选项.

但是,如果我想允许用户上传csv文件,我该如何动态更新所有相关的小部件.即,用户上传其数据,输入选择器显示数据集中的所有变量以用于绘图和回归.

斜体部分是我的麻烦.

ui.r

library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

  titlePanel("My R Shiny App"),

  sidebarPanel(
    fileInput('file', 'Choose file to upload.'),
    #Select Box: y
    selectInput("y_input", label = h5("Select Time Series/Response Variable"),
                choices = names(myData),
                selected = NULL)

  )
) 
)

server.r

library(shiny)

#Run once when app is launched
#Load data

shinyServer(function(input, output) {

  #Run once each time a user visits the app
  #Put code to build a distinct set of reactive objects for user …

提前致谢.

想知道是否有办法通过server.r文件中的字符串调用ui元素.

示例:而不是......

ui.Color <- input$color

做点什么......

ui.Color <- input[,"color"]

......有点像你可以用数据框做的.问题是类(输入)产生reactiveValues所以我不太确定如何将它子集化以获得特定值.

谢谢大家!