Question

EDITED 我想问你如何做这个简单的thigs。我想制作Shiny Web应用程序，它来自某些东西（inputId=num）的接口，并显示与各国的表格 data$both>num 我做了一些代码，但它不起作用。

    library(shiny)

ui <- fluidPage(


  sliderInput(inputId = 'num',label = 'Countries that...',min = '1',max =189',value = '20',step = '1')
  tableOutput(outputId = 'liczba')

)
    server <- function(input, output) {


  output$liczba <- renderTable({
    data[data$both>input$num,]
  })
}
  shinyApp(ui=ui, server=server)

Answer 1

这是基于您的代码的可能解决方案。您的实施中有几个小错误。请查看here以获取一组非常好的示例。

Function Hex2Dec(n1 As String) As Long
    Dim nl1 As Long
    Dim nGVal As Long
    Dim nSteper As Long
    Dim nCount As Long
    Dim x As Long
    Dim nVal As Long
    Dim Stepit As Long
    Dim hVal As String

    nl1 = Len(n1)
    nGVal = 0
    nSteper = 16
    nCount = 1
    For x = nl1 To 1 Step -1
       hVal = UCase(Mid$(n1, x, 1))
       Select Case hVal
         Case "A"
           nVal = 10
         Case "B"
           nVal = 11
         Case "C"
           nVal = 12
         Case "D"
           nVal = 13
         Case "E"
           nVal = 14
         Case "F"
           nVal = 15
         Case Else
           nVal = Val(hVal)
       End Select
       Stepit = (nSteper ^ (nCount - 1))
       nGVal = nGVal + nVal * Stepit
       nCount = nCount + 1
    Next x
    Hex2Dec = nGVal
End Function
...
UserForm1.TextBox1 = "RGB(" & Hex2Dec(UserForm1.txtHex1.Value) & "," & _
           Hex2Dec(UserForm1.txtHex2.Value) & "," & Hex2Dec(UserForm1.txtHex3.Value) & ")"

如何显示比EDITED更多的国家列表

1 个答案: