Skip to main content
cancel
Showing results for 
Search instead for 
Did you mean: 

Register now to learn Fabric in free live sessions led by the best Microsoft experts. From Apr 16 to May 9, in English and Spanish.

Reply
Anonymous
Not applicable

How to use R script in power query ? for populating Column using if condition in R SCRIPT

Hi

I have a table A(exist in power bi data model)

Table A
IDNameFlag
111alexF
222padianT
333heyoT
444yopeF

I want to create a new column 'Flad des' using 'Flag column' by if condition in R SCRIPT, find the below exepected output for your reference.
O/P:

Table A
IDNameFlagFlag des
111alexFFALSE
222padianTTRUE
333heyoTTRUE
444yopeFFALSE


If you could help me it would be helpfull, also please share me the screehot if possible .

 

Thanks in advance

 

1 ACCEPTED SOLUTION
v-xuding-msft
Community Support
Community Support

Hi @Anonymous ,

 

Please try this:

 


dataset$Flag_des <- ifelse(dataset$Flag,"True","False")
output <- dataset

 

 

 

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMjQ0VNJRSsxJrQBSbkqxOtFKRkZGQHZBYkpmYh6QEQIWNDY2BrIzUivz4UImJiZAdmV+QSpEaywA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID = _t, Name = _t, Flag = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", Int64.Type}, {"Name", type text}, {"Flag", type text}}),
    #"Run R script" = R.Execute("# 'dataset' holds the input data for this script#(lf)  #(lf)dataset$Flag_des <- ifelse(dataset$Flag ,""True"",""False"")#(lf)output <- dataset",[dataset=#"Changed Type"]),
    #"""output""" = #"Run R script"{[Name="output"]}[Value]
in
    #"""output"""

 

v-xuding-msft_0-1600250902132.png

 

Best Regards,
Xue Ding
If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.

View solution in original post

2 REPLIES 2
v-xuding-msft
Community Support
Community Support

Hi @Anonymous ,

 

Please try this:

 


dataset$Flag_des <- ifelse(dataset$Flag,"True","False")
output <- dataset

 

 

 

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMjQ0VNJRSsxJrQBSbkqxOtFKRkZGQHZBYkpmYh6QEQIWNDY2BrIzUivz4UImJiZAdmV+QSpEaywA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID = _t, Name = _t, Flag = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", Int64.Type}, {"Name", type text}, {"Flag", type text}}),
    #"Run R script" = R.Execute("# 'dataset' holds the input data for this script#(lf)  #(lf)dataset$Flag_des <- ifelse(dataset$Flag ,""True"",""False"")#(lf)output <- dataset",[dataset=#"Changed Type"]),
    #"""output""" = #"Run R script"{[Name="output"]}[Value]
in
    #"""output"""

 

v-xuding-msft_0-1600250902132.png

 

Best Regards,
Xue Ding
If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.
Greg_Deckler
Super User
Super User

@Anonymous - 

Greg_Deckler_0-1599131818691.png

 


@ me in replies or I'll lose your thread!!!
Instead of a Kudo, please vote for this idea
Become an expert!: Enterprise DNA
External Tools: MSHGQM
YouTube Channel!: Microsoft Hates Greg
Latest book!:
The Definitive Guide to Power Query (M)

DAX is easy, CALCULATE makes DAX hard...

Helpful resources

Announcements
Microsoft Fabric Learn Together

Microsoft Fabric Learn Together

Covering the world! 9:00-10:30 AM Sydney, 4:00-5:30 PM CET (Paris/Berlin), 7:00-8:30 PM Mexico City

PBI_APRIL_CAROUSEL1

Power BI Monthly Update - April 2024

Check out the April 2024 Power BI update to learn about new features.

April Fabric Community Update

Fabric Community Update - April 2024

Find out what's new and trending in the Fabric Community.

Top Solution Authors
Top Kudoed Authors