conditional RenderUI R shiny -


I have a problem with the render UI and I could not find a solution anywhere. Maybe I am asking the wrong question and there is a basic R problem more than a small problem.

I have a function in R, which will return a table or text based on input, so I have made both options in my server. This way: 

  Output $ table & lt; - Renderette {(x <- function (y) print (x)}} output $ text & lt; - rendertext {(x <- function (y) print (x)}}

If I put both outputs in the render UI then I always get an error output one The table is, in case of textOutput: 

  Error: Argument 1 (type 'list') can not be controlled by 'cat'

And 

  error: none of the applicable 'xtable' applied to the object of class "character"

if it is viceversa

My question is that the one to catch this error Is Rika and if one uses one I statement within the renderUI to display one of the rows? Thanks in advance and if you need I'm here to give you more details. Library (shiny) library (drsmooth) shinyServer (function (input, Output, session) {- Dataframe upload and input management goes here - output $ nlbcd <- renderTable ({nlbcd & lt; -nlbcd (dosecolumn = "dosage", targetcolumn = response (), cutoffdose = cut ( ), Data = data1 ()) print (nlbcd)} output $ nlbcdText & lt; - renderText ({nlbcd & lt; -nlbcd (dosecolumn = "dose", targetcolumn = reaction (), cutoffdose = cut (), data = Data1 ()) Print (nlbcd)} Production $ TB <- renderUI ({tableOutput ("nlbcd"), textOutput ("nlbcdText") ")

You have some problems, functions with different errors and explanations including classes with warning. A healthy example of what this function might have with You are encouraged to include TryCatch in your code:

ui.R 

  shinyUI (pageWithSidebar (headerPanel ( "Drsmooth"), sidebarPanel (numericInput ("number", label = h3 ("select" cutoffdose ", value = 0)), mainPanel (verbatimTextOutput ('current')))

Server. R 

  Library (drsmooth) shinyServer (function (input, output, session) {output current $ & lt; - renderPrint ({dosage & lt; - input $ number tryCatch ( Different ((dolphin ("dosage" "MF_Log", cutoffdose = dosage, data = DRdata), error = function (e) {cat (different (conditionMessage (e))}}})})}  < / Pre> 
 Sample output: with & lt; code & gt; cuttoffdose & lt; / code & gt; = 0  
 
  
 
  = 1.5 ">

Comments

Post a Comment

Popular posts from this blog

python - Overriding the save method in Django ModelForm -

I'm having trouble overriding a ModelForm save method. I get this error I'm: Exception type: TypeErier Exception Value: Save () found an unexpected keyword argument 'committed' My intentions include a form 3 fields Submit several values ​​for, then create an object for each combination of those areas, and to save each object file models.py class collarsult type (models.Model): id = model. AutoField (db_column = 'icontact_result_code_type_id', primary_key = true) callResult = models.ForeignKey ( 'CallResult', db_column = 'icontact_result_code_id') campaign = models.ForeignKey ( 'campaign', db_column = 'icampaign_id') CALLTYPE = models.ForeignKey ( 'CALLTYPE', db_column = 'icall_type_id') agent = models.BooleanField (db_column = 'bagent', default = true) teamLeader = models.BooleanField (db_column = 'bTeamLeader', default = true) active = models.BooleanField (db_column = Django.form...
Read more

html - CSS autoheight, but fit content to height of div -

I have a div in which there are three children- div in the left and middle div: float: left while true: float: true because it is my layout Actually will spoil, I've used ClearFix Hack: .cf {zoom: 1; }. Cf: First,. Cf: {content: ""; Display: Table; }. Cf: After {clear: both; } It still works, but I want to be the right div an indicator. So it should fill 100% of the parent unit of height. How can I complete this? PS is the full code: & Lt; / Div & gt; & Lt; Div class = "mobile_content" & gt; & Lt; H5 & gt; {{Data.titel}} & lt; / H5> & Lt; Table & gt; & Lt; TR & gt; & Lt; Th & gt; Komponist: & lt; / Th & gt; & Lt; TD & gt; {{Data.komponist}} & lt; / TD & gt; & Lt; / TR & gt; & Lt; TR & gt; & Lt; Th & gt; Instrument: & lt; / Th & gt; & Lt; TD & gt; {{Data.instrumente}} & lt; / TD & gt; & Lt; / TR & gt;...
Read more

qt - How to prevent QAudioInput from automatically boosting the master volume to 100%? -

I have been trying to use Qt5 multimedia to record audio with QAudioInput, however, when I see If QAudioInput is started, it increases the master volume of my sound device to 100%. How can I prevent QAudioInput from changing the master volume? My current development platform is Linux with PalsAdio (with flat audio disabled). How can I use QAudioInput : QAudioDeviceInfo device_info = QAudioDeviceInfo :: defaultInputDevice (); QAudio format format; Format.setSampleRate (44100); Format.setChannelCount (1); Format.setSampleSize (16); Format.setCodec ("Audio / PCM"); Format.setSampleType (QAudioFormat :: SignedInt); Format.setByteOrder (QAudioFormat :: LittleEndian); Std :: cout & lt; & Lt; Device_info.deviceName (). ToUtf8 (). ConstData () & lt; & Lt; Std :: endl; QAudioInput * default_device = new QAudioInput (device_info, format); QIODevice * default_io_device = default_device-> Start (); a QAudioInput.setVolume () method is not you I ...
Read more