shiny-server

    1热度

    1回答

    我已经写了一个Hello World应用光泽如下: /local/sampleShinyApp/ui.R: library(shiny) ui <- shinyUI(fluidPage(h1('Hello World'))) /local/sampleShinyApp/server.R: library(shiny) shinyServer(function(input, output){

    1热度

    1回答

    我在Rshiny pro server(1.5.2)上部署了闪亮的应用程序。 如果应用程序在大约45 seconds之前完成,则会执行一些繁重的计算并生成报告,而不会有任何问题。 如果计算和报告生成超过大约45秒,用户的会话/连接到服务器会中断。然后几乎立即自动服务器是reconnecting断开连接的用户。在re-connection的几秒钟后,用户会话正在获得,并向用户呈现不工作错误。 从上面

    0热度

    1回答

    我想从我的系统上传文件夹Shiny App以得到Corpus的Document Term Matrix以应用K-means。 我尝试了各种方法来做到这一点,但我无法建立所有上传文件之间建立连接以创建语料库。 我能够通过在全球环境中创建语料库来应用K-means,但是我想通过ShinyApp上传文件夹或选择多个文件来完成此操作。 下面是我做了什么至今代码:我可以上传多个文件 library(shin

    0热度

    1回答

    我已经配置有光泽服务器确定,我不能重定向本地主机:3838到shiny.mywebsite.com 我跟着这个Redirect subdomain to port [nginx/flask]和RStudio导游,但没有成功。 我试图 server { listen 80; server_name shiny.mywebsite.com; location/{

    0热度

    1回答

    我想将多个html文件存储在一个文件夹中。我希望能够提供一个链接到该文件夹​​,以便用户可以选择一个HTML文件来查看。 的问题是,如果我尝试导航到HTML文件中我得到这个消息: The application failed to start. The application exited during initialization. 这让我觉得,有光泽是把它当作一个应用程序,并寻找一个u

    2热度

    1回答

    我目睹了一个奇怪的现象,我用一个R Shiny演示应用程序(“已用空间”)进行了黑客攻击。它只包含一个数据表,里面填充了一些随机数据。下面的代码: ui.R: library(shiny) shinyUI(fluidPage( dataTableOutput("foobar") ) ) server.R:从RStudio与runApp()启动时 library(shi

    1热度

    1回答

    这是store input as numeric value to generate three tables in Shiny和类似的,但不等于以后推导了问题,那么r shiny error Error in as.vector(x, "character") : cannot coerce type 'closure' to vector of type 'character' 我想创建一个大

    1热度

    1回答

    这闪亮的代码树的DIV没有显示正确的输出我想: 闪亮代码 tags$div(class="block__body", tags$div(class="block__body--one"), tags$div(class="block__body--two"), tags$div(class="block__body--three") ) 电流输出: <div c

    0热度

    1回答

    我正在尝试创建一个将依赖于所选输入并闪亮的地图。我经历了所有的例子,但由于某种原因,我的代码似乎对我来说很正常,但显然它的缺失是因为它不工作。 UI似乎工作正常,因为它产生我想要的滑动条,但是它没有使用任何依赖于输入的地图。任何帮助将不胜感激! 这里是我的数据: > datamap Country.code EVENTONE EVENTTWO EVENTTHREE 1 Bosnia

    0热度

    1回答

    我将数据分组在列上,并尝试使用fitdistplus软件包来适合每个组的数据。在一些团体,我得到异常: 功能MLE未能估计参数, 错误代码52 我想忽略这与其他群体的配件进行。我试过tryCatch,但它没有压制错误。有人可以帮助我吗? 感谢 fits <- df[!is.na(x) , { tryCatch({ if(length(x) > 1){